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ABSTRACT 
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minute)  run  times  over  an  operating  Mach  number  range  from  1.4  to  2.0.  A  two- 
dimensional,  constant-plate  thickness,  multiple-jack  screw  configuration  was  the  concept 
used  to  effect  the  nozzle  geometry  changes.  Mention  is  made  of  a  multi-disciplinary 
design  optimization  routine  which  helped  to  rule  out  a  single-jack,  variable-plate  thickness 
configuration.  The  aerodynamic  and  structural  analysis  used  in  the  design  process  is 
presented  in  detail.  Preliminary  drawings  of  the  nozzle  mechanism  are  included. 
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I.  INTRODUCTION 


A  small  transonic  compressor  cascade  wind  tunnel  was  designed  and  built  at  the 
Turbopropulsion  Laboratory  (TPL)  at  the  Naval  Postgraduate  School,  Monterey,  Cahfomia 
(Demo,  1978).  The  tunnel  was  used  successfully  to  examine  the  shock  structure  at  the  tip  of  a 
transonic  conqjressor  rotor  then  being  tested  at  the  Laboratory.  In  recent  years,  the  test  secticai 
was  modified  to  provide  a  simulation  of  the  flow  through  blading  of  a  Navy  development  fiin.  The 
goal  was  to  obtain  an  acceptably  two-dimensional  and  periodic  simulation  with  only  two  blade 
passages  so  that  the  scale  of  the  model  was  large  enough  to  examine  shock-boundary  layer 
interaction,  and  its  control  using  vortex  generators.  The  develq)ment  of  the  two  passage 
simulation  was  rqjorted  (Shreeve  et  al,  1993)  and  recent  measurements  of  the  effects  of  vortex 
gaierators  oi  the  passage  shock-boundary  layer  interactiai  were  documented  (Gamerdinger, 
1995).  In  order  to  allow  similar  experimental  studies  to  be  ccmducted  over  a  range  of  relative  flow 
Madi  numbers  of  interest  in  advanced  &n  designs,  a  variable  Mach  number  apparatus  with  a 
larger  test  section  was  required.  The  design  of  the  nozzle  for  the  new  apparatus,  which  would  use 
the  supply  and  exhaust  piping  of  an  existing  4x4  inch  supersonic  wind  tunnel  was  the  goal  of  the 
present  woric.  The  aim  was  to  incorporate  into  the  larger  apparatus  all  the  features  proven 
successfully  in  the  pilot  experiment,  but  to  provide  diem  over  a  range  of  Mach  number  that  could 
be  varied  ctxitinuousiy  fi’om  1 .4  to  2.  This  range  of  Madi  number  was  chosen  based  on  the  status 
of  &n  and  compressor  technology  and  would  be  of  interest  for  many  years. 

Thus  die  focus  of  die  presait  diesis  was  die  design  of  a  variable  gecmietry  nozzle  and 
actuating  mechanism  for  the  new  apparatus.  For  the  test  secticxi  area  considered  in  the  present 
design,  Madi  2.0  was  a  limit  sd  by  the  TPL  blow  down  facility  air  receiver  volume  and  pressure 
level,  and  the  desired  test  duraticn.  Because  the  blow  down  focility  was  an  intermittent  wind  tunnel 
and  die  test  durations  relatively  diort,  the  nozzle  mechanism  was  not  required  to  change  the  test 
secticxi  Mach  number  during  the  course  of  a  test.  The  mechanism  was  required  to  alter  the  nozzle 
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shape  during  the  intervening  time  betweai  tests  in  which  the  air  tanks  were  being  r^ressurized. 
Based  on  the  this  length  of  time  between  tests,  the  nozzle  mechanism  was  required  to  be  able  to 
provide  a  conq>lete  change  in  COTfiguraticai  from  the  Mach  1.4  to  the  Mach  2.0  shape  within  fifte^ 
minutes. 

A  flexible-plate  nozzle  with  screw  jacks  to  alter  the  shape  was  the  chosen  concept  for  the 
design.  This  mechanism  was  chosCT  over  a  moveable-block  c(xic^  because  of  the  requiremait  to 
couple  the  nozzle  with  a  cascade  test  secticxi  with  boundary  layer  scoops  on  all  four  walls.  An 
arrangemait  based  ot  quick  removal  and  installati<m  of  fixed-shape  nozzle  blocks  was  not  diosai 
due  to  the  expaise  involved  in  machining  the  many  sets  of  nozzle  blocks  required  to  cover  the 
desired  Mach  number  range.  The  flexible  plate  nozzle  design  could  potmtially  provide  fast 
changes  in  geometry  and  a  nearly  axitinuous  variation  of  test  Mach  number,  at  reasonable 
expose. 

The  presait  document  records  the  design  process  fbUowed  and  provides  the  details  of  the 
final  design,  which  is  shown  in  Figure  1  in  a  side  view  with  the  side  plates  removed.  Chapter  II 
discusses  flie  coistraints  inqjosed  by  the  existing  blow-down  fecility,  future  test  section  design 
requirements  and  the  initial  sizing  of  the  nozzle.  Chapter  III  describes  a  flexible-plate  nozzle 
design  methodology  develq)ed  at  NASA  Ames  Researdi  Facility  (Melton,  1994),  which  was 
followed  initially  in  the  presart  project  Hus  design  process  involved  a  multi-disciplinary 
nprimigatifm  of  the  flexible  plate  thickness  variation.  Chapter  IV  describes  the  design  methodolc^ 
used  in  the  final  design  in  which  aerodynamic  and  structural  solutiois  were  derived  separately. 
This  design  tq^roach  incorporated  cOTStant-diickness  flexible  plates  with  mult4>le  screw  jacks. 
Chapter  V  discusses  features  of  the  mechanism  design,  including  the  sealing  problem,  the 
jackscrew  design,  the  jack  mounting  design  and  the  support  frame.  Chapter  VI  presents 
conclusiois  and  recommaidations  for  further  analysis  and  specifically  a  computational  fluid 
dynamics  analysis  before  commitment  to  manufecture  is  made.  Finally,  the  appoidices  documait 
the  analytical  and  computaticmal  methods  used  in  the  design  process. 
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EIGHTEEN 
JACK  SCREWS 


II.  DESIGN  REQUIREMENTS  AND  INITIAL  SIZING 


An  initial  sizing  calculation  was  carried  out  to  determine  if  the  design  requirements  could 
be  achieved.  TTie  calculations  showed  that  the  existing  air  supply  system  was  capable 
of  supporting  Mach  2.0  operation  for  the  test  section  of  interest. 


A.  NOZZLE  EXIT  AREA 

The  sizing  of  the  nozzle  exit  area  was  determined  by  the  capabilities  of  the  Gas  Dynamics 
Laboratory  (GPL)  blow-down  facility  (Figure  2),  the  required  stagnation  pressure  for  Mach  2 
operation  and  the  desired  test  duration 
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Figure  2.  Blow  Down  Wind  Tunnel  Facility 

The  capacity  of  the  storage  tanks  was  8000  cubic  feet  and  tlie  maximum  pressure  available 
through  a  combination  of  main  and  boost  compressors  was  300  pounds  per  square  inch.  The 
existing  control  valve  was  a  Fisher  Type  57-T.  Data  on  the  ability  of  this  control  valve  to  regulate 
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air  flow  at  low  pressure  differentials  was  not  available.  To  maintain  a  particular  Mach  number  in 
the  test  section,  the  ploirun  pressure  had  to  be  kept  at  a  coistant  level.  Therefore  a  series  of  tests 
was  conducted  to  determine  the  lower  limit  in  pressure  differential  across  the  control  valve  at 
\Miich  COTitrol  of  the  ploium  pressure  was  lost.  The  data  taken  from  these  tests  were  used  to  derive 
a  coefficiait  of  volxunetric  flow  rate  (Fisher,  1977),  >Miich  in  turn  was  used  to  determine  the  useful 
range  in  tank  pressures  available  for  testing. 

Based  on  e?q}erioice  with  the  pilot  transmic  cascade  facility,  and  the  time  needed  for 
probe  surveys,  a  nominal  test  duration  of  two  minutes  was  chosen.  The  control-valve  tests 
indicated  that  the  time  from  foe  ccntrol  valve  was  first  q>ened  to  Mfoen  stable  flow  conditions 
were  established,  was  approximately  one  minute.  During  this  period  foe  volumetric  flow  rate 
would  be  less  than  occurs  during  foe  steady  test  period.  Coisequmtly,  foe  nozzle  exit  area  was 
sized  for  a  three  minute  steady  flow  at  Mach  1.9,  and  this  resulted  in  foe  selectitm  of  ei^teai 
square  indies.  The  derivation  of  foe  volumetric  flow  rate  and  foe  exit  area  calculation  are  givra  in 
Appendix  A. 

B.  NOZZLE  EXIT  ASPECT  RATIO 

Factors  amstraining  foe  test  section  geometry  were  examined  to  determine  foe  dimensions 
of  foe  nozzle  exit.  The  aspect  ratio  of  foe  test  section  is  defined  herein  as  foe  ratio  of  foe  vertical 
hei^  to  foe  horizontal  width  of  a  plane  oriented  perpendicular  to  foe  air  flow  (Figure  3). 

Design  specifications  for  currait  experimaital  higji  speed  conqiressor  blading  were 
considered  in  sdecting  foe  aspect  ratio.  Though  foe  trmd  in  conqiressor  blade  stagger  angles 
points  toward  angles  in  excess  of  sevorty  degrees,  much  lower  angles  (in  foe  area  of  forty  degrees) 
were  friund  to  be  foe  limiting  considerations  in  setting  foe  test  section  width,  given  a  number  of 
desired  blade  passages.  Three  passages  was  foe  configuration  chosen  to  provide  improved  flow 
periodicity  compared  to  that  attained  in  foe  pilot  transmiic  focility.  Using  five  passages,  foe 
generally  acc^ted  'minimum'  number  for  supersonic  cascades,  was  ruled  out  due  to  foe  difficulty 
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of  resolving  viscous  effects  wifi  very  small-scale  blades.  It  was  also  desirable  to  design  the  larger 
supersonic  test  section  to  have  improved  two  dimensicmality  compared  to  the  pilot  transonic  test 
secticm. 

The  test  secticHi  design  envisioned  here  included  the  boundary  layer  scoo^  coxicqjt,  provm 
so  effective  in  the  existing  pilot  transonic  cascade  (Shreeve  et  al,  1993).  In  addition  to  the  test 
section  area,  the  area  occupied  by  the  boundary  layer  at  the  nozzle  exit  had  to  be  determined.  This 
boundary  layer  area  rqjresented  air  flow  vdiich  would  be  directed  away  from  the  test  section  by  the 
boHmdary  layer  scox^s  but  vsiiidi  had  to  be  accounted  for  in  determining  the  nozzle  exit  aspect 


ratio.  A  boundary  layer  scocp  dqith  of  .25  inches  was  considered  an  aoxeptable  loss  from  the  test 
section  area.  By  dioosing  this  scoxip  dqitli,  the  nozzle  length  was  limited  to  25  indies.  With  these 
considerations,  the  exit  area  dimensions  were  determined  as  exit  height,  5.6  inches  and  exit  width 
3.2  indies.  A  list  ofthe  parameters  for  die  nozzle  design  is  givai  in  Table  1. 
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Maximum  Exit  Mach  Number 

2.0 

Maximum  Plenum  (Supply)  Pressure[psia] 

115 

Test  Section  Pressure[psia] 

14.7 

Nozzle  Exit  Height(he)[inches] 

5.6 

Nozzle  Exit  Width(w)[inches] 

3.2 

Test  Section  Heigjit(h)[inches] 

5.1 

Test  Section  Wiclth(b)  [inches] 

2.7 

Nozzle  Laigth  (Throat  to  Exit)[inches] 

25 

Table  1.  Nozzle  Design  Parameters 


The  nozzle  exit  aspect  ratio  determinatioa  is  described  in  detail  in  App^dix  A. 
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in.  DESIGN  CALCULATIONS  USING  AN  AUTOMATED  OPTIMIZATION  ROUTINE 


A  multi-disciplinary  design  method  developed  by  Melton  of  the  NASA  Ames  Research 
Facility  (Melton,  1994)  was  used  to  conduct  the  initial  design  study.  The  method  was  developed 
specifically  for  the  redesign  of  a  flexible  plate  nozzle  used  in  the  NASA  Ames  Unitary  Wind 
Tunnel  Facility.  The  nozzle  controlled  the  Mach  number  of  the  transonic  porticm  of  the  tunnel  over 
the  range  1.3  to  1.5.  The  redesign  involved  replacing  a  variable  thickness  flexible  plate  and  single 
throat-jack  nozzle  configuration  with  an  optimized,  variable-thickness  flexible  plate  and  multiple- 
jack  configuration. 

The  goal  in  the  NASA  design  was  to  effect  a  desired  aerodynamic  shaping  using  a  simple 
metal  structure.  There  was  no  logical  similarity  between  the  aerodynamic  shapes  required  to 
achieve  good  nozzle  outflow  conditions  and  die  shape  that  would  be  taken  by  a  metal  plate  under 
combined  pressure  and  end  point  loads.  If  the  pressure  loads  generated  by  the  fluid  flow  were  of 
the  same  order  of  magnitude  as  the  forces  required  to  deflect  the  plate,  foe  aerodynamic  and 
structural  solutions  directly  affected  aae  another.  The  qptimization  routine  provided  foe  ability  to 
analyze  foe  coupled  aerodynamic  and  structural  problrais. 

The  NASA  optimizatiOT  method  also  held  foe  promise  of  goierating  a  single  throat  jack 
cxmfiguration  vfoich,  fi'cmi  a  cost  efifectiveness  stan^int,  was  appealing.  The  method  was  untried 
in  foe  Mach  number  range  of  1.4  to  2.0,  but  foe  excellent  result  achieved  in  NASA’s  1.3  to  1.5 
redesign  instilled  ccmfidence  in  foe  methodology  as  a  starting  point  for  foe  NFS  design. 

A.  OPTIMIZATION  CODE 

The  optimization  code  was  designed  to  provide  a  plate  thickness  distribution  A^ch,  when 
placed  under  a  combined  load  of  foe  flow-field  pressure  and  foe  throat  jack,  produced  an  exit  flow 
c(xiditi<Hi  which  was  accqrtable  to  foe  designer.  For  foe  purpose  of  conq)ressor  cascade  studies, 
foe  uniformity  of  foe  exit  plane  Mach  distribution  was  of  primary  amcem  and  was  fous  used  as  foe 
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nozzle  optimization  critericm.  Known  were  the  exit  plane  aspect  ratio  and  Mach  number  range, 
vsiiich  implied  known  nozzle  area  ratios  and  pressure  ratios.  TTie  FORTRAN  code  developed  by 
MehOT  and  Erickson  (Melton,  1994)  iteratively  determined  the  q)timum  thickness  variatiai  from 
a  specified  set  of  thickness  variaticms.  Nozzle  length  was  set  as  constant  within  the  qjtimization 
code,  but  was  varied  manually  as  part  of  die  overall  design  qptimizaticxi.  Material  properties  for 
17-7PH  stainless  steel  were  also  defined  within  the  code. 

ITie  optimizaticm  strategy  used  in  the  code  is  shown  in  Figure  4.  Initially,  a  combinatioo  of 
thickness  distributiwis  was  specified  by  the  user.  The  code  used  the  method  of  characteristics  to 
compute  flow-field  solutions  and  a  finite-elemait  routine  to  conq)ute  structural  deformation  as  a 
result  of  the  throat  deflecticMi  and  flow  field  pressure  loading.  A  constant  thickness  plate  was 
assumed  to  b^in  the  iteration.  ITie  boundary  cmditions  simulated  a  plate  wdiich  was  fixed  at  the 
exit  and  deformed  by  a  throat  jack  to  achieve  the  required  area  ratio.  A  flow  field  solution  was 


Figure  4.  Flow  Chart  of  the  Automated  Optimization  Method 
calgilatfirf  based  aa  this  deformed  shape.  The  first  thickness  distribution  was  chosen  and  the 
pressure  loading  from  the  flow  field  solution  was  applied  along  with  the  throat  deflection  boundary 


10 


OHiditicm.  The  finite  elemmt  routine  was  run  chi  this  updated  flexible  plate  geometry  and  set  of 
boundary  oxiditicms.  From  this  structural  solution  a  new  shape  was  foimd  which  was  used  to 
compute  a  new  flow  field  soluticxi.  This  procedure  was  ccmtinued  for  one  wall  thickness 
distributicHi  until  the  aerodynamic  and  structural  solutions  converged  to  within  a  specified 
tolerance.  For  this  solutiim,  the  difference  betweoi  the  exit  plane  Mach  distribudcHi  and  the  desired 
Mach  number  was  stored  in  a  vector,  and  the  L2-norm  was  used  to  quantify  the  magnitude  of  the 
variaticm. 

The  next  thickness  distribution  was  taken  from  the  s^  and  the  iteration  process  was 
repeated.  The  norm  of  the  exit-plane  Mach  number  variation  for  this  ccMiverged  solution  was 
compared  to  the  previous  solution.  If  this  exit  plane  Mach  number  variation  was  less  than  the 
previous  CHie,  the  new  thickness  distributicxi  was  saved  as  the  currait  c^imum  and  the  other  value 
was  discarded.  This  process  was  coitinued  for  foe  entire  set  of  user-specified  thickness 
distributicms.  The  optimum  thickness  distribution  of  foe  defined  set  was  foat  which  resulted  in  foe 
lowest  exit-plane  Madi  number  variation. 

A  nozzle  shape  was  qitimized  for  one  oi-design  Mach  number.  Once  foe  optimized  shape 
was  d^ermined,  foe  code  was  run  again  for  foe  design  plate  thickness  distributim  at  foe  required 
ofF-design  Mach  numbers.  An  exit-plane  Madi  number  variatiai  within  .005  of  foe  desired  value 
was  considered  accqrtable  as  it  was  two  orders  of  magnitude  less  foan  foe  range  of  desired  Mach 
numbers. 

In  foe  original  code,  boundary  layer  properties  were  taken  fi*om  ^erimental  data  obtained 
in  foe  existing  NASA  wind  tunnel.  An  attenqjt  was  begun  to  incorporate  a  mote  general  boimdary 
layer  subroutine  mto  foe  code,  but  foe  amount  of  time  necessary  to  complete  foe  task  proved  to  be 
excessive.  Additicxially,  it  was  found  foat  foe  time  required  per  iteratim  as  a  result  of  adding  an 
integral  boundary  layer  routine  would  cause  foe  overall  cptimization  to  more  than  double.  The 
initial  design  studies  were  foerefore  conducted  using  an  inviscid  versicHi  of  foe  code.  Code 
qierating  details  are  given  in  .^^Kodix  B. 
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B.  RESULTS  OF  ANALYSIS 


The  study  conducted  using  Melton's  optimization  code  indicated  that  a  single  jack, 
variable-plate  thickness  nozzle  would  not  provide  the  desired  uniformity  in  the  exit  plane  Mach 
number  over  the  range  from  1.4  to  2.0.  Two  plate  configurations  were  considered,  a  variable 
thickness  distribution  and  a  constant  thickness  distribution. 

A  study  was  conducted  to  determine  tlie  on-design  Mach  number  and  optimum  thickness 
distribution  that  best  satisfied  the  exit  plane  Mach  number  uniformity  requirement.  Figures  5,  6 
and  7  show  typical  results  of  this  study.  For  a  design  Mach  number  of  2.0  (Figure  5)  the 
optimized  thickness  distribution  produced  an  exit  plane  Mach  distribution  well  within  the  desired 
tolerance. 
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Figure  5.  On-Design  Exit  Plane  Mach  Distribution  (Variable  Thickness) 


The  procedure  followed  was  first  to  obtain  the  optimized  solution  which  was  acceptably  uniform 
but  not  necessarily  centered  at  the  nominal  Mach  number.  The  entire  distribution  curve  was  then 
moved  by  changing  the  nozzle  area  ratio  by  slightly  changing  the  throat  jack  setting.  In  Figure  5, 
the  exit  Mach  number  was  uniformly  .002  greater  tlian  die  desired  value.  By  adjusting  the  throat 
jack  setting  to  achieve  a  larger  area  ratio,  this  curve  could  be  moved  to  the  left  to  achieve  the 
desired  M  =  2.0  test  condition. 

The  promising  result  shown  on-design  did  not  hold  for  the  off-design  conditions.  From 
Figures  6  and  7  it  can  be  seen  that  the  off-design  performance  of  the  optimized  M  =  2.0  nozzle  was 
unacceptable.  It  is  noted  however,  that  the  degree  of  uniformity  at  the  Mach  numbers  below  1.6 
was  much  better  that  at  all  Mach  numbers  higher  than  1.6. 


Figure  6.  Off-Design  Exit  Plane  Mach  Distribution  (Variable  Thickness) 
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Further  attempts  showed  that  optimizing  the  thickness  distribution  for  any  Mach  number  between 
1 .7  and  2.0  produced  ofF-design  exit  plane  conditions  which  did  not  meet  the  targeted  uniformity 
criteria. 


Figure  7.  Off-Design  Exit  Plane  Mach  Distribution  (Variable  Thickness) 


The  uniformity  shown  at  the  lower  Mach  numbers  was  noted  to  be  consistent  with  the  success  of 
the  NASA  redesign  using  this  method. 

A  second  study  was  conducted  to  determine  the  exit  plane  Mach  number  distributions  that 
would  result  from  deflected  plates  of  uniform  thickness.  The  procedure  followed  during  the  second 
study  was  to  vary  the  plate  thickness  uniformly  for  a  given  Mach  number  until  acceptable  exit 
plane  conditions  were  achieved.  Figure  8  shows  the  constant  thickness  result  for  an  on-design 
Mach  number  of  2. 
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A  plate  thickness  of  .132  inches  was  used  to  produce  these  results.  The  on-design  uniform 
thickness  was  then  run  off-design.  Figures  9  and  10  show  the  off-design  performance  of  the 
uniform-plate  thickness. 
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Figure  8.  On-Design  Exit  Plane  Mach  Distribution  (Uniform  Thickness=.132  inches) 
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Figure  9.  Off-Design  Exit  Plane  Mach  Distribution  (Uniform  Thickness=.132  inches) 
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Figure  10.  Off-Design  Exit  Plane  Mach  Distribution  (Uniform  Thickness=.132  inches) 


The  off-design  performance  for  the  uniform  tliickness  plate  was  seen  to  be  acceptable,  but  the 
thickness  of  .132  inches  presented  a  problem  in  sealing  the  plate.  The  minimum  practical  0-ring 
diameter  was  considered  to  be  ,07  inches  which  required  a  gland  width  of  .11  inches.  A  plate 
thickness  of  .25  inches  was  considered  to  be  necessary  to  accommodate  the  0-ring  gland. 

A  uniform  plate  thickness  of  .25  inches  was  analyzed  to  determine  the  nozzle  exit  flow 
uniformity.  The  results  are  shown  in  Figures  11  and  12.  It  can  be  seen  that  a  plate  of  this 
increased  thickness  would  require  additional  jacks  to  adjust  the  shape  to  achieve  the  desired 
uniformity  at  the  exit  plane.  The  .25  inch  plate  did  however  produce  better  exit  plane  Mach 
number  uniformity  than  the  variable  thickness  optimized  solution.  The  results  indicated  that,  for 
the  Mach  number  range  under  consideration,  a  constant  thickness  plate  was  a  better  configuration 
than  the  optimized  variable  thickness  plate. 
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Figure  12.  Exit  Plane  Mach  Distribution  (Uniform  Thickness-.25  inches) 
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IV.  DESIGN  USING  SEPARATE  AERODYNAMIC  AND  STRUCTURAL  ANALYSES 


A.  DESIGN  STRATEGY 

Since  the  qrtiinizaticHi  code  had  shown  that  a  constant  thickness  plate  gave  better  flow 
uniformity  throughout  the  design  Mach  niunber  range  than  plates  of  varying  thickness,  a  logical 
approach  was  to  begin  with  a  COTStant  thickness  plate.  The  plate  would  be  formed  precisely  to  the 
shape  required  for  one  particular  (design)  Mach  number,  and  a  number  of  jacks,  distributed  along 
flie  plate,  would  be  used  to  produce  the  precise  wall  shapes  required  at  all  other  Mach  numbers. 

The  goal  then  was  to  determine  whether  a  series  of  on-design  aerodynamic  shapes  could  be 
achieved  using  a  .25  indi  thick  steel  plate.  The  design  process  therefore  involved  discrete 
aerodynamic  and  structural  phases.  The  aerodynamic  phase  involved  the  generaticHi  of  a  nearly 
continuous  fomily  of  wail  contours  to  provide  uniform  flow  at  Madi  numbers  fimn  1.4  to  2.0,  and 
whidi  accounted  for  boimdary  layer  growth.  The  structural  phase  involved  determining  the  jack 
forces  and  jack  distributicn  necessary  to  achieve  flie  aercxlynamic  shapes,  and  finding  a  practical 
method  of  implemaiting  what  was  required. 

B.  AERODYNAMIC  SHAPE  GENERATION 

The  nozzle  shape  was  separated  into  superscmic  and  subscmic  portions.  The  shape  of  the 
supersonic  section  was  determined  for  an  inviscid  perfect  gas  using  the  method  of  characteristics. 
An  integral  boundary  layer  method  was  used  to  compute  the  displacement  thickness.  The 
boundary  layer  giowdi  for  a  two-dunensicnal  nozzle  effectively  decreased  the  area  ratio  for  a  givoi 
nozzle  geometry.  In  the  presmt  design,  die  exit  dimensicms  were  fixed  and  therefore,  to  accoimt  for 
the  exit  area  lost  to  di^lacement  fliickness,  die  throat  area  was  decreased.  Boundary  layer  growth 
along  the  side  plates  was  accounted  for  by  fiirflier  decreasing  the  throat  height.  A  modified  version 
of  a  method  of  characteristics  and  integral  boundary  layer  code  develqied  at  the  Naval  Ordnance 
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Laboratory  (Sievwright,  1995)  was  used  to  generate  supersonic  nozzle  shapes  over  the  Mach 
number  range,  1 .4  to  2,  at  incremaits  of  .01 . 

A  ccmstant  radius  of  curvature  at  the  throat  was  specified  and  used  for  all  of  the  shapes. 
The  shapes  had  common  axial  lengths  and  exit  half  heights,  but  different  contour  lengths.  In  order 
to  construct  a  constant-laigth  plate  mechanism  which  could  create  these  shapes,  the  l^gth  along 
the  curves  had  to  be  constant,  and  the  axial  length  had  to  be  variable.  Polynomial  fits  of  the 
coordinates  provided  by  the  code  were  used  to  modify  the  shapes  so  that  th^r  Fq)resaited  a  series 
of  constant  length  curves.  The  resulting  configuration  was  a  plate  fixed  at  the  exit  plane  and  free 
to  move  vertically  and  horizontally  at  the  throat. 

The  method  of  characteristics  required  the  soluticm  to  start  at  some  finite  distance 
downstream  of  the  throat.  The  user  specified  a  radius  of  curvature  and  die  code  generated  throat 
half  heights  (based  cm  the  exit  half  height).  These  parameters  defined  the  throat  geometry.  Implicit 
in  the  analysis  was  a  zero  slope  at  the  throat.  When  the  viscous  effects  were  accounted  fiar  by 
adding  displacement  thickness,  the  slope  at  the  first  point  in  the  method  of  dharacteristics  solution 
was  changed.  As  a  result,  the  polynomial  fit,  which  cmirected  die  methcxl  of  characteristics 
solution  to  the  throat  geometry,  had  a  non-zero  slqpe  at  die  throat.  To  correct  this  problem,  a 
separate  transition  polynomial,  which  maintained  the  geometry  of  the  throat,  was  derived  to  join  the 
throat  to  die  first  point  of  the  method  of  characteristics  solution.  This  transition  polynomial  is 
illustrated  in  Figure  13,  and  is  described  in  detail  in  Appendix  C. 

The  subsonic  section  shape  was  ccmsidered  to  be  less  critical.  At  die  throat  it  was 
necessary  to  msure  ccmtinuity  in  curvature  and  the  nozzle  inlet  dimensicms  were  dictated  by  the 
existing  plenum  exit  dimoisions.  The  subsonic  shape  also  had  to  be  mcmotonic.  These  ccmditicms 
were  met  by  parameterized  eiqionential  fimcticms  (Veihoff,  1995).  Figure  14  shows  the  range  of 
nozzle  shapes  which  resulted.  The  Y  value  r^resents  the  vertical  distance  fi-om  the  nozzle 
centerline  and  the  X  value  rqiresents  the  Icmgitudinal  dimaision  of  the  nozzle.  The  value  X  =  0  is 
at  the  throat  of  the  Mach  2  shape.  The  aerodynamic  analysis  is  givai  in  detail  in  Appaidix  C. 
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C.  STRUCTURAL  ANALYSIS 

The  structural  analysis  was  ccmcentrated  on  resolving  three  issues.  The  first  issue  was 
whether  a  practical  arrangement  of  jacks  could  be  found  which  could  achieve  the  aerodynamic 
shapes.  The  seccHid  issue  was  to  design  a  physical  attachment  mechanism  between  the  Jack  and  the 
flexible  plate.  The  third  issue  was  it  determine  the  effect  of  the  pressure  loading  on  the  structure. 
The  structural  analysis  was  conducted  using  I-DEAS  Master  Series™  (Lawry,  1994). 

The  Mach  1.7  shape  was  chosai  as  the  on-design  (undeformed)  shape  for  the  structural 
analysis.  The  jacks  were  mounted  so  that  they  were  locally  perpendicular  to  the  flexible  plate.  The 
other  shapes  in  the  Mach  number  range  were  produced  by  deflecting  the  plate  from  the  Mach  1 .7 
shape.  By  choosing  the  mid-range  Mach  number,  the  maximum  deflection  required  at  the  throat 
was  ,42  inches.  Jack  force  requirements  and  the  jack  distribution  were  determined  by  the  amount 
of  force  required  to  effect  the  curvature  change  between  the  Mach  1.7  shape  and  the  extremes  of 
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the  Mach  number  range.  The  extremes  in  curvature  variation  were  represented  by  the  difference 
between  the  Mach  1.7  shape  and  the  Mach  1.4  and  Mach  2  shapes  (Figure  15).  The  shapes 
represented  by  the  these  differences  were  applied  to  a  model  which  consisted  of  flat  plate  with  the 
proposed  distribution  of  jack  attachments.  The  Mach  2  shape  required  greater  deflection  from  the 
Mach  1.7  shape,  and  was  thus  used  as  the  shape  to  be  achieved  by  using  a  combination  of  jacks. 


Figure  15.  Extreme  Curvature  Variation  from  the  Mach  1.7  Shape 


Two  primary  frctors  defined  the  structural  design  problem;  the  jack  and  the  flexible  plate. 
The  amount  of  force  an  individual  jack  could  exert  was  limited  by  its  size.  The  more  force  a  jack 
was  capable  of  producing,  the  greater  the  ability  to  control  the  curvature  of  the  plate.  The  larger 
size  requirement  for  a  stronger  jack,  however,  required  greater  spacing  between  jacks,  resulting  in 
less  control  over  the  curvature.  Additionally,  the  forces  imposed  on  the  flexible  plate  were  not 
allowed  to  cause  yielding  or  result  in  a  fatigue  life  of  less  than  100,000  cycles  (Bannantine  et  al., 
1990). 
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Nine  jack  mounting  points  were  located  at  approximately  three  inch  intervals  from  seven 
inches  to  24.5  inches  upstream  of  the  exit.  The  results  of  the  finite  element  analysis  are  shown  in 
Figure  16. 


Figure  16.  Finite  Element  Solution  for  Approximation  of  the  Mach  2  Curvature  Variation 
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To  achieve  flie  downward  deflection,  a  225  pound  and  a  140  pound  load  was  applied  at 
points  3.5  inches  upstream  of  the  throat  and  three  inches  downstream  of  the  throat  respectively.  To 
produce  the  curvature  required  for  the  Mach  2  shape,  a  275  pound  load  was  applied  in  the  upward 
direction  at  the  throat. 

The  analysis  of  the  jack  mounting  fixture  involved  the  simpUfied  model  shown  in  Figure 
17. 


27 


force  produced  a  moment  at  the  plate-jack  mount  point.  A  250  pound  force  was  applied  at  an 
maximum  ofF-design  angle  of  4.5  degrees.  The  resulting  stress  concaitration  at  the  interfece 
between  the  jack  mount  fixture  and  the  flexible  plate  was  less  than  10000  psi.  Additionally,  the 
maximum  deflecticm  of  the  flexible  plate  betweai  two  jack  mount  points  was  approximately 
.00004  inches.  This  deflection  was  two  orders  of  magnitude  less  than  the  expected  machining 
tolerance  of  .001  inches. 

The  structure  was  designed  to  minimize  the  effects  of  the  aerodynamic  pressure  loading. 
The  internal  pressure  loading  decreased  non-linearly  fi’om  the  entrance  to  the  exit  of  the  nozzle. 
The  loads  imposed  by  pressure  differential  caused  a  displacement  betweai  the  jack  mount  points 
and  a  moment  about  each  jack  mount  point.  A  structural  model  was  constructed,  and  is  shown  in 
Figure  1 8,  to  determine  the  effects  of  the  pressure  loading. 


The  largest  pressure  loads  were  found  to  occur  in  the  subsonic  section  of  the  nozzle  where 
structural  deformatiai  would  not  adversely  affect  the  supersonic  flow.  The  primary  area  of 
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interest  was  the  section  of  plate  to  either  side  of  the  throat  jack,  because  of  the  sensitivity  of  the 
nozzle  exit  flow  Mach  number  to  the  throat  contour.  Alcmg  the  length  of  this  6.5  inch  section  the 
pressure  drq)ped  from  approximately  75  psia  to  40  psia  for  a  Mach  2.0  exit  condkiai  and  plraum 
pressure  of  1 15  psia.  The  maximum  deflection  of  flie  plate  section  between  the  throat  jack  and  the 
first  jack  downstream  of  the  throat  was  approximately  .0002  inches.  This  amount  of  deflection 
was  an  order  of  magnitude  less  than  the  expected  machining  tolerance  and  was  therefore  considered 
to  be  accqrtable.  llie  cost  of  reducing  this  deflection  was  an  increase  in  plate  thickness  or  the 
addition  of  another  jack.  These  qjtions  were  considered  to  be  unaccqrtable. 

The  graphical  ou4)uts  of  flie  finite  elemoit  anal3^is  ccnducted  oo  the  pr(q>osed  structure 
are  given  in  Appendix  D. 
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V.  MECHANICAL  DESIGN 


The  medianical  layout  of  the  nozzle  design  is  shown  in  Figure  1  and  was  accomplished 
using  AutoCad®(Omura,  1993).  The  flexible  plate  was  designed  to  be  made  of  stainless  steel  and 
formed  so  that  it  took  the  shape  required  for  Mach  1 .7.  The  plate  was  restrained  fully  at  the  nozzle 
exit.  A  slip  joint  was  used  to  enable  the  nozzle  entrance  to  translate  in  the  direction  parallel  to  the 
nozzle  coiterline  and  to  msure  zero  slq)e  at  the  oitrance.  Eighteoi  jack  screws  arranged  alcng  the 
upper  and  lower  nozzle  plates,  were  designed  to  force  the  plates  to  the  shapes  required  for  all  other 
Mach  numbers.  An  aluminum  fi^e  provided  a  structural  base  for  steel  side  plates  and  a  means  of 
attachment  to  the  plenum  and  test  section.  A  large  I-beam  outer  frame  provided  the  structural 
rigidity  to  support  the  jack  loads.  The  list  of  coordinates  describing  the  Mach  1.7  shape  and 
engineering  drawings  of  the  nozzle  compcments  are  provided  in  Appendix  E. 

A  seal  was  provided  between  the  flexible  plate  edges  and  the  side  walls.  The  seal  consisted 
of  a  .07  indi  0-ring  inserted  in  a  groove  madiined  along  the  .25  inch  edges.  Tube-shaped  spacers 
were  used  to  oisure  that  .002  indies  of  clearance  was  maintained  betweoi  the  flexible  plate  edges 
and  the  side  walls.  A  .  139  indi  0-ring  was  used  to  seal  the  gap  between  the  flexible  plate  and  the 
fi:ame  upstream  of  the  slip  joint.(Parker,  1981) 

The  jack  screw  used  in  the  nozzle  mechanism  was  unique  to  this  design.  The  acciuacy 
requirements  for  positiixiing  the  flexible  plate  (.001  inches)  precluded  the  use  of  pneumatic  or 
hydraulic  actuators.  A  syston  incoipoiating  ei^iteen  st^per  motors  and  a  controller  inter&ced 
with  the  cascade  Data  Acquisitioi  System  computer  was  to  be  used.  The  ccmtrolling  software 
would  be  designed  to  sdiedule  the  jack  screw  lengths  necessary  to  achieve  the  required  shape  ft>r  a 
given  Mach  number.  The  system  would  be  a  multi-channel  equival^t  of  the  system  devel<^ed  by 
Myre  for  traversing  probes  (Myre,  1993).  The  jack  screw  design  was  based  on  the  use  of  a  2.25 
inch  by  2.25  inch  square  st^per  motor  rated  at  150  ounce  inches  of  torque,  mounted  to  drive  a 
threaded  shaft.  The  selected  nominal  thread  size  was  3/8  -  32  of  the  American  National  extra  fine 
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thread  series  (Morse,  1968).  As  the  shaft  was  rotated,  the  force  necessary  to  deflect  the  plate  was 
applied  to  a  telescoping  tube  with  the  same  internal  thread  dimaisions.  The  jack  length  program 
required  the  coordinates  of  the  center  of  the  jack-mount  eyelet  and  the  jack  pivot  point.  The 
coordinates  of  the  center  of  the  jack-mount  eyelet  for  any  givai  Mach  number  was  determined 
using  the  aerodynamic  analysis  routine  presorted  in  Appoidix  D.  The  jack  pivot  points  were 
determined  using  AutoCad,  by  positioiing  the  jack  screw  perpendicular  to  the  flexible  plate, 
establishing  the  pivot  point  locatioi  and  reading  the  relatiA«  coordinates  provided  by  the  software. 
The  jack-length  program  is  given  in  ^pendix  D.  The  jacks  were  mounted  on  bolts  inserted 
throu^  one  half-indi  steel  side  plates 

The  inner  flame  was  made  of  aluminum  for  ease  of  machining.  The  primary  purpose  of 
the  iimer  fl'ame  was  to  hold  the  three  sets  of  steel  side  plates  in  place.  Two  sets  of  side  plates 
served  as  the  structural  ftrundatioo  fisr  the  jack  pivot  ponrts.  (^e  set  of  plates  was  used  to  seal  the 
nozzle.  The  aluminum  inner  flame  also  provided  the  means  of  attaching  the  nozzle  mechanism  to 
the  plenum  and  the  test  section.  At  the  inlet  aid  of  the  nozzle,  the  inner  flame  mated  with  the 
existing  plenum  outlet  plate.  The  aluminum  flame  was  mounted  to  an  outer  fl-ame  consisting  of  ten 
6x12  indi  wide  flange  I-beams  (Bauld,  1986). 
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VI.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

The  presort  study  provided  the  necessary  information  to  ccmstruct  a  two-dimensioial 
flexible-plate  nozzle  for  an  iterating  Mach  munber  range  of  1.4  to  2.0,  designed  to  be 
incorporated  in  the  supersonic  wind  tunnel  at  the  Naval  Postgraduate  School's  Gas  Dynamics 
Laboratory.  Three  phases  were  involved.  The  first  was  to  examine  the  ability  of  the  blow-down 
facility  to  provide  the  necessary  run  times  in  tests  using  a  suitable  scaled  compressor  cascade  test 
section,  nie  second  was  a  design  study  using  a  multi-disciplinary  optimization  routine.  This  study 
assessed  the  feasibility  of  using  a  single  jack  and  a  flexible  plate  with  varying  thickness  to  achieve 
acceptable  exit  Madi  number  uniformity  over  the  range  required  for  cascade  model  tests.  The 
third  phase  addressed  the  nozzle  design  using  indqjoident  aerodynamic  and  structural  solutions. 

The  initial  sizing  study  showed  that  the  supersmic  blow-down  facility  was  capable  of 
providing  the  necessary  air  flow  for  a  test  section  with  a  cross  secticxial  area  large  ^ough  to 
accommodate  cascade  models  of  interest.  The  system  was  calculated  to  provide  steady  test 
conditions  at  M  =  1 .9  for  three  minutes  with  a  nozzle  exit  area  of  1 8  square  inches. 

The  design  study  using  the  optimizatiai  code  showed  that  a  single  jack,  variable  plate- 
thickness  configuration  was  not  able  to  produce  exit  flow  uniformity  that  was  widiin  desired  limits 
over  flie  design  Madi  number  range.  The  study  also  showed  however,  that  a  constant  thickness 
plate  was  capable  of  producing  an  accqrtable  exit  plane  Mach  variation.  The  specific  uniform 
thickness  vdiich  gave  this  promising  result  was  .132  indies,  which  was  considered  too  thin  to  seal 
effectively.  A  plate  fliickness  of  .25  indies,  vdiidi  could  be  sealed  with  an  0-ring  of  1/16  indies, 
was  thou^  to  be  necessary.  Analysis  of  the  .25  inch  plate  showed  that  the  performance,  while 
unacceptable,  was  far  better  over  the  full  Madi  number  range  than  the  qrtimized  variable  thickness 
configuration.  The  .25  inch  plate  was  thus  considered  a  logical  starting  point  for  a  multiple  jack 
design  study.  The  general  conclusion  was  that  Ae  qrtimized  single-jack  arrangraneirt  could  give 
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good  results  at  lower  supersonic  Mach  numbers  (for  wdiich  it  was  develqied),  but  that  the  changes 
in  shape  required  at  Mach  numbers  approaching  2  were  too  large  to  be  approximated  well  using  a 
single  jack  and  thickness  distribution  qjtimized  at  cme  Mach  number 

In  the  third  phase,  the  aim  of  the  multiple  jack,  constant  plate-thickness  design  study  was 
to  determine  if  specific  aerodynamically  determined  qjtimum  shapes  could  be  achieved  using  a 
reasonable  munber  of  jacks  arranged  alcmg  a  .25  inch  stainless  steel  plate.  An  aerodynamic 
analysis  was  performed  to  determine  the  nozzle  shapes  capable  of  producing  Mach  munbers  fi’om 
1.4  to  2.  Finite-elemait  models  were  used  to  determine  the  jack  distributic®  and  jack  forces 
necessary  to  adiieve  the  off-design  nozzle  shapes,  based  oo  the  plate  being  unstressed  with  the 
contour  required  at  die  design  Mach  number  =  1.7.  Addkicxial  structural  analysis  was  carried  out 
to  determine  a  durable  means  of  attadiing  the  jack  to  die  plate  without  gready  increasing  the 
stifiBiess  of  the  plate.  These  studies  showed  that  it  was  possible  to  achieve  the  required 
aerodynamic  diapes  with  the  mechanism  described.  The  analysis  also  showed  that  the  stress 
amcentrations  associated  with  the  jack  mounting  fixture  were  well  below  the  mdurance  limit. 

The  following  elements  in  the  process  are  seen  to  be  key  to  conqileting  the  presart  design: 
-successfully  deriving  cm-design  caitours  which  had  a  common  throat  radius  of 
curvature,  and  commoi  surfoce  lengdi 

-finding  an  accurate  analytical  approximaticm  for  the  femily  of  contours  from  the 
subsonic  approadi  r^(®  to  die  superscxiic  exit  plane 
-using  an  unstressed,  maduned  shape  at  a  Mach  number  near  the  middle  of  the 
required  range 

-using  int^rally  machined  bosses  for  jack  attachment 
-using  deflected  flat-^late  modeling  to  find  off-design  stresses. 
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B.  RECOMMENDATIONS 

The  anal)^is  conducted  showed  that  a  nozzle  medianism  could  be  built  which  was  capable 
of  producing  the  required  aerodynamic  shapes.  Two  areas  of  structural  analysis  are  recommended 
for  further  study.  The  first  is  to  examine  the  effects  of  thermal  gradients,  whidi  must  develop 
during  the  course  of  wind  tunnel  tests,  on  the  flexible  plate.  The  second  is  to  examine  the  out-of¬ 
plane  bending  or  'saddling'  that  should  occur  due  to  Poisson's  effect  al(xig  the  sevra  inch  secticn  of 
plate  stretching  from  the  last  jack  to  the  nozzle  exit. 

The  goal  of  the  third  phase  was  to  produce  a  medianism  vdiidi  prcxhiced  cm-design  shapes 
at  all  Mach  numbers  over  the  required  range.  In  feet,  the  only  perfect  on-design  shape  is  for  M  = 

1 .7,  the  unstressed  condition  of  die  flexible  plate.  The  exit  plane  Mach  variation  for  all  the  shapes 
other  than  the  Mach  1 .7  shape  (which  was  machined  to  provide  a  perfect  result)  was  not 
calculated.  The  af^lication  of  a  viscous  CFD  code  to  the  off-design  shapes  produced  by  the 
elastically  deformed  plate,  is  therefore  recommended  to  determine  the  off-design  exit^lane  Mach 
number  distributions. 

Finally,  a  detailed  cost  analysis  is  required  before  a  commitmait  can  be  matfe  to  the 
proposed  design. 
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APPENDIX  A.  NOZZLE  EXIT  AREA  AND  ASPECT  RATIO  DETERMINATION 


A.  NOZZLE  EXIT  AREA  DETERMINATION 

The  nozzle  exit  area  determination  was  based  cm  the  ideal  gas  law  and  the  mass  flow 
relaticmships.  TTie  following  nomaiclature  was  used  in  the  developmait  of  the  nozzle  exit  area 
relationship; 

a  -  Local  sound  velocity(ft/s) 

A  -  Nozzle  exit  area(ft^) 

A*  -  Throat  area(ft^) 

Cp  -  Specific  heat  at  ccmstant  pressure(Btu/lbm-OR) 

Cy  -  Ccmtrol  valve  volumetric  flow  rate  coefficiait 
gp  -  Acceleration  due  to  gravity(ft/s2) 

G  -  Gas  specific  gravity 
m  -  Mass(slugs) 

m|  -  Mass  of  air  in  tanks  at  beginning  of  test(slugs) 
m2  -  Mass  of  air  in  tanks  at  end  of  test(slugs) 

o 

m  -  Mass  flow  rate(slugs/s) 

M  -  Mach  number 
p  -  static  pressure 

p  1  -  Pressure  in  tanks  at  b^iiming  of  testObfift^) 

P(  -  Plenum  stagnation  pressureObfifl^) 

Pt*  -  Stagnaticm  pressure  at  throat  (sonic)  ccmdition(lbf/ft2) 

^  •  Pressure  difierential  across  ccmtrol  valve  whoi  the  valve  loses  its  ability 
to  ccmtrol  the  plenum  pressure(lbfift2) 

Qscfli  -  Volumetric  flow  rate  in  standard  cubic  feet  per  hour(ft3/hr) 

R  -  Gas  constant(ft-lbf/lbm-OR) 
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t  -  Run  time(sec) 

T  -  Static  temperature(°R) 

T 1  -  Temperature  in  tanks  at  beginning  of  test(°R) 

T2  -  Temperature  in  tanks  at  aid  of  test(°R) 

Tf  -  Stagnation  temperature(®R) 

Tj-*  -  Stagnation  pressure  throat(°R) 

V  -  Flow  velocity(ft/s) 

V  -  Tank  volume(ft^) 

7  -  Ratio  of  specific  heats 
p  -  density(slugs/ft^) 

Pst  -  Standard  atmospheric  density(slugs/ft^) 

Using  the  ideal  gas  assunqiticxi  and  the  mass  flow  rate  relatim,  an  expressim  for  the 


nozzle  exit  area  was  found  as  follows: 

using 

p  =  pRT 

(1) 

and 

o 

m  =  pAv 

(2) 

it  can  be  shown  that 

A-  V  2y  ‘ 

(3) 

where. 

V,=-y/2CpT, 

(4) 

The  mass  of  air  in  the  storage  tanks  at  the  beginning  and  the  end  of  the  test  was  used  to 
determine  the  mass  flow  rate  as  follows: 
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Cy  was  determined  experimaitally  using  the  superscmic  tunnel  at  a  Mach  number  of  1 .4. 

A  was  known  for  the  nozzle,  average  values  for  and  were  takoi  in  three  tests.  The  tests 
involved  running  the  tunnel  until  the  control  valve  could  no  longer  omtrol  the  ploium  pressure. 

o 

The  following  'choked'  mass  flow  relationship  was  used  to  compute  m. 
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o 

in  = 


-(r+i) 


p.‘a* 

1  ^ 

Y+r 

ilRgc 

2 

(11) 


and  Cy  was  found  from  equation  (9)  and  equation  (10).  The  tests  results  were; 


p/=  44.7212^ 
in 


A’  =  14.3507m^  T,*  =  508. 1 7"  R 


m=  47059^  =712437.65^  C,  =  1.6576 

s  nr 

A  spread  sheet  was  used  to  find  exit  areas  for  a  range  of  Mach  numbers,  run  times  and 
initial  tank  pressures.  The  results  are  givai  in  Tables  2,  3  and  4. 


Mach# 

RunTime(min) 

Pl(psi) 

Area(in'^2) 

1.8 

3 

260 

17.38721912 

1.8 

3 

270 

18.07997832 

1.8 

3 

280 

18.75730801 

1.8 

3 

290 

19.4201954 

1.8 

3 

300 

20.06952674 

1.8 

2.5 

260 

18.65062775 

1.8 

2.5 

270 

19.36192545 

1.8 

2.5 

280 

20.05655125 

1.8 

2.5 

290 

20.73562524 

1.8 

2.5 

300 

21.40014744 

1.8 

2 

260 

20.04168194 

1.8 

2 

270 

20.76930749 

1.8 

2 

280 

21.47911511 

1.8 

2 

290 

22.17235298 

1.8 

2 

300 

22.85013004 

Table  2.  Nozzle  Exit  Areas 
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ich# 

RunTime(min) 

Pl(psi) 

Area(in^2) 

.9 

3 

260 

15.85116582 

.9 

3 

270 

16.55758881 

.9 

3 

280 

17.24769901 

.9 

3 

290 

17.92257689 

.9 

3 

300 

18.58318867 

.9 

2.5 

260 

17.12754154 

.9 

2.5 

270 

17.85704739 

.9 

2.5 

280 

18.56862914 

.9 

2.5 

290 

19.26354644 

.9 

2.5 

300 

19.94291799 

.9 

2 

260 

18.55170355 

.9 

2 

270 

19.30187784 

.9 

2 

280 

20.0326015 

.9 

2 

290 

20.74531332 

.9 

2 

300 

21.44128302 

Tables.  Nozzle  Exit  Areas 


1  260 

14.15579788 

;  270 

14.88156796 

;  280 

15.5898198 

1  290 

16.28176385 

!  300 

16.95847725 

5  260 

15.42726067 

5  270 

16.18234737 

5  280 

16.91776377 

5  290 

17.63497146 

5  300 

18.3352595 

260 

16.86958312 

270 

17.65149433 

280 

18.411624 

290 

19.15169694 

300 

19.8732217 

B. 


NOZZLE  EXIT  ASPECT  RATIO  DETERMINATION 


The  nomenclature  used  in  the  nozzle  exit  aspect  ratio  calculations  is  shown  in  Figure  19. 


The  heigjit  of  the  test  secti<»i  for  a  three  blade  passage  caifiguration  was  given  by 

h  =  3sina  (12) 

The  angle,a  was  based  on  the  stagger  angle  for  the  cascade  to  be  tested.  The  test  section  width 
was 

b  =  --s  (13) 

c  s 

^  c 

v^diere,  —  would  determine  the  degree  of  two  dimoisionality  and  —  was  the  solidity  of  the  cascade 
c  s 

to  be  tested.  The  test  secticm  area  was  given  by 

=  hb  =  3s^  — — sin  a  (14) 

c  s 

and  the  boundary  layer  scoop  area  was 
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A,  =  2bd  +  2hd  =  2d(b  +  h) 


(15) 


where  d  was  the  depth  of  scoop  determined  by  the  boundary  layer  thickness.  The  nozzle  exit 
dimensions  were  determined  using  the  following  relationships: 


w  =  b+2d 

(16) 

hg  =  h  +  2d 

(17) 

The  hallowing  MATLAB  program  was  used  to  find  the  test  sectiffli  aspect  ratio: 

%Program  testsec.m 
%Calculates  test  section  parameters. 

%Specified  parameters: 

%  Farea  -  Nozzle  exit  area 
%  sol  -  Blading  solidity  (c/s) 

%  twoD  -  Factor  of  two  dimensionality  (b/c) 

%  staggerangle  -  exactly  that 
%  b,h  -  Starting  values  for  test  section  width 
%  and  height  respectively.  From  these 

%  values,  a  shooting  iteration  is  conducted 
%  until  convergence  is  achieved. 

%  d  -  Boundary  layer  thickness  at  nozzle  exit 
% 

%C)u^t  values: 

%  s  -  Blade  spacing 

%  c  -  Blade  chord 

%  b  -  Test  section  width  (converged  solution) 

%  h  -  Test  section  height  (converged  solution) 


Farea  =  18; 

sol  =  1.97; 

twoD  =  .6; 

staggerangle  =  40; 

alpha  =  (90  -  staggerangle)*pi/180; 

b  =  4;  %test  section  width 

h  =  5;  %test  section  height 

d=.25 

c=0;s=0;m=0; 
maxit  =  7; 

out  =  zeros(maxit,4); 

out(l,:)  =  [s  c  b  h]; 
for  m=  l:maxit, 

s  =  sqrt(  (Farea-(2*d*(h+b+(2*d))))/(3*sin(alpha)*twoD*sol)  ); 
c  =  sol*s; 
b  =  twoD^c; 

h  =  (Farea-(2*d*(h+b+(2*d))))/b; 
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end 

out 


out(m+l,;)  =  [s  cbh]; 


For  the  values  assumed  in  the  program,  the  result  was  a  nozzle  exit  height  of  5.6  inches  and  a 
nozzle  exit  width  of  3.2  inches. 
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APPENDIX  B.  OPTIMIZATION  CODE 


The  nozzle  optimization  code  was  written  by  Melton  and  Erickscm  of  the  NASA  Ames 
Research  Facility.  Melton  modified  the  code  for  use  in  the  present  design,  provided  all  the 
informaticai  necessary  to  run  it  cm  NPS  computers  and  was  the  point  of  ccmtact  at  NASA  Ames. 
The  program  was  a  working  code  and  required  some  knowledge  of  the  FORTRAN  77 
programming  language.  The  code  was  run  on  the  NPS  CRAY  EL-98  >diich  increased  the  per 
iteration  CPU  time  approximately  five  times  over  NASA's  CRAY  C-90. 

The  qrtimizaticm  code  was  used  interactively  and  as  a  batdi  process.  Because  of  the  limit 
cm  interactive  CPU  time,  more  than  approximately  twaity  iteraticms  required  operaticm  in  batch 
mode.  For  foe  presait  design  study,  foe  optimization  prcx»ss  required  many  iteraticms  and  was  run 
as  a  batch  job.  The  off-design  performance  assessmmt  at  each  Mach  number  required  erne 
iteration  and  was  performed  interactively. 

The  pretgram  was  written  to  read  a  cemimand  line  specified  input  file.  Whoi  foe  program 
was  nm  interactively  foe  following  command  specified  foe  input  file  and  ran  foe  code: 

nozopt  <  input_file 

Because  foe  program  was  a  working  ccxle,  foe  arbitrary  program  name  nozopLf  was  used  for  foe 
version  at  NPS.  The  original  name  was  mocfem.f. 

In  order  to  run  foe  co^  as  a  batch  process,  a  batch  file  had  to  be  writtoi.  The  following 
file  is  exanq)le  of  this  batch  file: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 


#QSlJB-qprem 

#  QSUB -0  rl. batch 
#QSUB-eo 

#  QSUB  -IT  200000 

#  QSUB -It  200000 

#  QSUB  -IM  lOMw 
#QSUB-€o 

#  QSUB  -me 


#  regular  c|ueue(Teg,prem) 

#  name  the  output  file 

#  direct  errors  to  the  output  file 

#  Set  the  CPU  time  limit(total  time) 

#  Set  the  CPU  time  limitfindividual  job  tinm) 

#  Set  the  CPU  memory  limit 
#  Standard  output  direction 


# 

# —  Set  shell  variables 
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11 

set  RUN  =rl  #input  should  be  copied  to  match 

12 

set  SCR  =  STMPDIR 

13 

set  nozl  =  nozopt 

14 

# 

15 

cdSSCR 

16 

# 

17 

# —  Copy  the  required  files  to  the  scratch  directory 

18 

cp /dl/tgemmert/${RUN}.in  . 

19 

#cp/dl/tgemmert/inputl6  . 

20 

cp/dl/tgemmert/${nozl}  . 

21 

# 

22 

Assign: 

23 

# 

24 

#env  FILENV=.ass${RUN}  assign  -a  ${RUN}_ctrmach 

fort.  3 

25 

#env  FILENV=.ass${RUN}  assign  -a  ${RUN}_strdist 

fort.4 

26 

#env  FILENV=.ass${RUN}  assign  -a  ${RUN}_deflect 

fort.8 

27 

#env  FILENV=.ass${RUN}  assign  -a  ${RUN}_walldef 

fort.  13 

28 

#env  FILENV=.ass${RUN}  assign  -a  ${RUN}j)resdist 

fort.  14 

29 

#env  FlLENV=.ass${RUN}  assign  -a  ${RUN}_wallniach  fort.  15 

30 

#env  FILENV=.ass${RUN}  assign  -a  ${RUN}_thickdist  fort.  16 

31 

#env  FILENV=.ass${RUN}  assign  -a  ${RUN}_ctrlm 

fort.  12 

32 

# 

33 

env  FILENV=.ass${RUN}  $nozl  <  ${RUN}.in  >  ${RUN}.i»1 

34 

# 

35 

#~  Copy  the  ouqmt  files  back  to  the  main  directory 

36 

cp  ${RUN}_ctnnach  /dl/tgemmert/rl 

37 

cp  ${RUN}_strdist  /dl/tgemmert/rl 

38 

cp  ${RUN}_deflect  /dl/tgemmert/rl 

39 

cp  ${RUN}_walldef  /dl/tgemmert/rl 

40 

cp  ${RUN}_presdist  /dl/tgemmert/rl 

41 

cp  ${RUN}_wallmach  /dl/tgemmert/rl 

42 

cp  ${RUN}_thickdist  /dl/tgemmert/rl 

43 

cp  ${RUN}_ctrlm  /dl/tgemmert/rl 

44 

cp  ${RUN}.prt  /dl/tgemmert/rl 

TTie  line  numbers  were  added  to  aid  in  referaice.  The  '#■  symbol  indicates  commait  lines  excqrt  in 
lines  1-8.  The  per  iteration  time  was  approximated  as  50  seconds  and  vrfiai  multiplied  by  the 
number  of  iterations,  determined  the  total  CPU  time  required  for  an  qrtimization  run.  TTiis  CPU 
time  was  specified  in  lines  4  and  5.  The  CPU  memory  requiremaits  were  conservatively  estimated 
as  10  megawords.  A  ccanmon  input  file  name  and  ouqnit  directory  name  was  set  in  line  11.  The 
program  name  was  specified  in  line  13.  Lines  18  and  20  c<^y  the  input  file  and  the  executable 
code  to  the  scratch  directory.  Lines  24  tiiroug^i  31  were  commented  out,  but  remain  as  an  exairqjle 
of  how  to  manipulate  the  defiiult  fort.*  output  files.  Line  33  specified  the  file  in  vdiich  screai 
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output  was  to  be  saved.  Lines  36  through  41  cq}ied  the  output  files  from  the  scratdi  directory  to 
the  output  directory.  The  name  of  this  file  was  runner.nqs  and  it  was  submitted  to  sinus  (the  NFS 
CRAY  EL-98)  by  typing  the  fiallowing  at  the  UNIX  command  line: 

qsub  ninner.nqs 

The  input  file  for  the  q^timizaticm  code  is  listed  here; 


1  10  Number  of  design  variables 

2  1  Number  of  design  iterations 


3 

#of 

Starting 

Starting 

Reduction 

4 

variations  value 

radius 

factor 

5 

1 

0.0 

0.0 

0.7 

x-station 

6 

1 

0.25 

0.0 

0.7 

thickness 

7 

1 

5.0 

0.0 

0.7 

x-station 

8 

1 

0.25 

0.0 

0.7 

thickness 

9 

1 

10.0 

0.0 

0.7 

x-station 

10 

1 

0.25 

0.0 

0.7 

thickness 

11 

1 

15.0 

0.0 

0.7 

x-station 

12 

1 

0.25 

0.0 

0.7 

thickness 

13 

1 

25.0 

0.0 

0.7 

last  x-station 

14 

1 

0.25 

0.0 

0.7 

thickness 

15 

16  1  Niunber  of  design  conditions 

17  2.0  Design  Mach  number 

18  50  Number  of  points  from  N  to  S  wall 

19  1.0  x-locationofupstream  characteristic  starting  line 

20  16563.38  Stagnation  pressure  (psf) 

21  2116.8  Plenum  pressure  (psf) 

22  1.0  North  nozzle  jack  setting 

23  1.0  South  nozzle  jack  setting 

24  0.0  Throat  disidaceiiient  thickness  0.63575 

25  0.0  Displacement  thickness  growth  coefficient  0.00875 

26  b.O  Foreshortening  distance  (positive)  (.30651) 

27  0.0  Upstream  rotation  angle  (degrees)  N 

28  0.0  Upstream  rotation  angle  (degrees)  S 

29  0.0  Downstream  rotation  angle  (degrees)  N 

30  0.0  Downstream  rotation  angle  (degrees)  S 

31  3.2  Width  of  flexwall  (inches) 

32  2.8  Iblf  height  of  nozzle  exit  or  vert  dist  from  centerline  to  exit 

33  25.0  Length  (horizontally)  from  throat  to  exit 

For  the  presoit  design  study,  five  points  were  diosen  along  the  flexible  plates  as  points  of 
specified  thickness.  The  program  generated  the  remaining  wall  thickness  values  by  spline  fitting 


the  five  thickness  values,  ft  was  possible  to  c^}tiimze  the  thickness  distributicxi  for  a  ccmstant 
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longitudinal  value  along  the  wall  or  this  'x-station'  could  be  varied.  The  design  variables  referred 
to  in  line  1  were  the  thickness  and  x-station  values  specified  in  lines  5  throu^  14.  The  nxunber  of 
design  variables  was  twice  the  number  of  stations  along  the  wall.  The  program  was  set  for 
multiple  iteratiOTS  in  line  2.  The  point  about  which  the  thickness  qjtimizatiOT  was  carried  out  was 
specified  in  the  'starting  value'  column  of  lines  5,  7,  9,  1 1  and  13.  The  starting  thickness  value  was 
specified  in  die  'starting  value'  column  of  lines  6,  8,  10,  12  and  14.  A  search  radius  was  specified 
in  the  'starting  radius'  column.  The  starting  radius  specified  the  range  of  values  around  the  starting 
values  which  the  program  searched  during  the  qrtimizatioo.  This  distance  to  either  side  of  the 
starting  value  was  divided  into  equal  lengths  by  the  value  specified  in  the  '#  of  variations'  column. 
The  value  specified  in  the  'reduction  fector*  coliunn  was  used  to  reduce  the  seardi  radius  on 
subsequent  iteraticais.  This  input  file  was  set  up  for  an  interactive,  single  iteration  run.  Lines  16 
and  lines  24  through  30  were  not  changes  in  this  version  of  the  program.  Lines  17  through  23  and 
lines  3 1  through  33  require  the  user  to  specify  apprqiriate  values  for  a  nozzle  of  interest. 

The  program  output  cmsisted  of,  exit  plane  Mach  distribution,  flexible  plate  stress 
distribution,  plate  shape  with  respect  to  the  exit,  the  plate  shape  with  respect  to  the  nozzle 
centerline,  the  flow  field  pressure  distributiOT,  the  Mach  mmiber  at  the  plate  sur&ce,  he  plate 
thickness  distributicm,  the  caiterline  Mach  distributicMi  and  the  restraining  forces  at  the  exit  and 
throat.  A  MATLAB™  script  file  was  used  to  display  the  ouq}ut.  This  file  is  shown  below: 

%program  plotnoz.m 

loadrl_ctnnach; 
load  rlstrdist; 
load  rl_deflect; 
load  rlwaUdef, 
load  rl_piesdist; 
load  rlwallmach; 
load  rl_thickdist; 
load  rlctrlm; 

sul^lot(4,2,  l);plot(rl_ctnnach(:,2),rl_ctnnach(:,  l));grid; 

axis([-.01,.01,.2.8,2.8]); 

titleCExit  Plane  Mach  Distribution*); 


48 


ylabelCV); 
xlabelCDel  Mach'); 

sabplot(4,2,2);plot(rl_strdist(;,l),rl_strdist(:,2));grid; 

title('Stress  Distribution'); 

ylabel('Stress'); 

xlabel('X'); 

subplot(4,2,3);plot(rl_deflect(:,l),rl_deflect(:,2));grid; 

title('Wall  Deflection  (from  base)'); 

ylabelCY); 

xlabelCX'); 

sut^lot(4,2,4);plot(rl_walldef(:,l),rl_walldef(:,2),rl_walldef(;,l),rl_walldef(:,3),'y');grid; 

title('Wall  Shape  wrt  Centerline'); 

ylabelCV); 

xlabel('X'); 

sul^lot(4,2,5);plot(rl_|»esdist{:,l),rl_presdist(:,2));grid; 

title('Pressure  Distribution'); 

ylabelCPressure'); 

xlabel('X'); 

snlplot(4,2,6);plot(rl_wallmach(:,l),rl_wallmach(:,2));grid; 

titleCWall  Mach  Number  Distribution'); 

ylabel('M'); 

xlabel('X'); 

subplot(4,2,7);plot(rl_thickdist(:,l),i’l_thickdist(:,2));gri<i; 

titleCWall  Thickness  Distribution'); 

ylabel('T'); 

xlabel('X'); 

sul^lot(4,2,8);pl(A(rl_ctrim(:,l),rl_ctrlm(:,2));grid; 
titleCCenterline  Mach  Distribution'); 
ylabelCMO; 
xlabel('X'); 

An  abbreviated  flow  diart  for  the  nozzle  qjtimizatiai  code  is  depicted  in  Figure  20. 
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(  SPECIFIY  MATERIAL  PROPERIES  J 

^  SET  NOZZLE  LENGTH,  WIDTH  ^ 
AND  EXIT  HALF  HEIGHT  ^ 

SET  INITIAL  PLATE  THICKNESS  VARIATION 
AND  RADIUS  OF  SEARCH 


[  SET  VARIATION  1  EQUAL  TO 

THE  HRST  THICKNESS  VARIATION  ^ 

ASSUME  CONSTANT  PLATE  THICKNESS 

(  IMPOSE  BOLTNDARY  CONDITIONS  ON  PLATE 

^COMPUTE  STRUCTURALLY  DEFORMED 
^  SHAPE  USING  FINITE  ELEMENT  MODEL 

COMPUTE  FLOW  FIELD  SOLUTION  FOR  SHAPE 
USING  METHOD  OF  CHARACTERISTICS 


SAVE  STRUCTURAL  AND  AERODYNAMIC 
SOLUTIONS  AS  SOLUTION  1 


APPLY  SOLUTION  1  TO  THICKNESS 

VARIATION  SPECIFIED  IN  VARIATION  1 

^  -  -  --  . — 

COMPUTE  STRUCTURALLY  DEFORMED 
SHAPE  USING  FINITE  ELEMENT  MODEL 


COMPUTE  FLOW  FIELD  SOLUTION  FOR  SHAPE 
USING  METHOD  OF  CHARACTERISTICS 
_ _ _ 

^SAVE  STRUCTURAL  AND  AERODYNAKflC 
SOLUTIONS  AS  SOLUTION  2 


IS  THE  DIFFERENCE  BETWEEN  SOLUTION  1 
AND  SOLUTION  2  WITH  TOLERANCE 


SAVE  THIS  SOLUTION  AS 
OPTIMIZED  SOLUTION 


IS  THIS  OPTIMIZED  SOLUTION  BETTER 
THAN  THE  LAST  OPTIMIZED  SOLUTION 


CODE  FLOWCHART 


SET  VARIATION  1 
EQUAL  TO  NEW 
THICKNESS  VARIATION 


SET  SOLUTION  i  EQUAL 
TO  SOLUTION! 


NEW  OPTIMIZED  SOLUTION 
BECOMES  OPTIMIZED  SOLUTION 


LAST  OPTIMIZED  SOLUTION 
REMAINS  OPTLMIZED  SOLUTION 


WHEN  SOLUTIONS  FOR  ALL  OF  THE  SPECIFIED 
THICKNESS  VARIATION  COMBINATIONS  HAVE 
BEEN  DETERMINED,  THE  OPTIMIZATION  IS  COMPLETE 


APPENDIX  C.  AERODYNAMIC  SHAPE  DEVELOPMENT 


A.  SUPERSONIC  SHAPE 

The  superscHiic  shape  was  generated  using  a  modified  versicm  of  a  program  writtai  at  the 
Naval  Ordnance  Laboratory  (Sievwright,  1995).  The  program  was  modified  from  the  Sievwright 
version  to  facilitate  the  fest  iteration  required  to  generate  the  61  shapes  covering  the  Mach  munber 
range  1 .4  to  2.  The  code  read  input  values  from  a  command-line  specified  input  file.  The  method 
of  characteristics  was  used  to  d^ermine  the  inviscidc<mtours.  An  integral  boundary  layer  soluti<Hi 
was  th^  found  for  the  inviscid  solution.  The  displacement  thickness  was  added  to  the  dimensions 
of  the  inviscid  nozzle  shape.  To  find  the  shape  whidi  provided  the  desired  area  ratio,  the  specified 
initial  exit  half  height  was  decreased  until  the  desired  exit  half  height  was  reached  by  the  code 
generated  solution.  The  input  fille  is  listed  here: 


2  INDSR  -  TYPE  OF  NOZZLE,  1-SHORT,  2-REGULAR,  3-EXPONENTIAL 
1  INDYTH  -  THROAT  C»  EXIT  HEIGHT  TO  BE  READ  IN  YTHEX  1-YEXIT,  2-YTH 

1  INDXTE  -  INDICATE  XT  OR  XEXIT  TO  BE  READ  IN  XEXXT,  1-XEXIT,  2-XT 

2  INDOUT  -  INDICATE  OUTPUT,  1-STEP  BY  STEP,  2-  WALL  POINTS  ONLY 
1.4  GAMMA  -  RATIO  OF  SPECmC  HEATS  (1.4) 

2.0  ***SMT  -  TEST  SECTION  MACH  NUMBER 

25.  XEXXT  -  EXIT  LENGTH  OR  BEGINNING  OF  TEST  RHOMBUS  (INCHES) 

2.66006  ***YTHEX  -  HALF  HEIGHT  OF  NOZZLE  THROAT  OR  EXIT  DEffiNDING  ON 
INDYTH  (INCHES) 

95.  RCT  -  RADIUS  OF  CURVATURE  AT  THROAT  (INCHES) 

.5  DELMUL  -  MULT.  FACTOR  FOR  X  INCREMENT  (1.0-150  PTS,  0.5-400  PTS) 

2  INDMO-BLAYER  MCff)E:  1.  LAMINAR,  2.  TURBULENT,  3.  LAM-TRANS-TURB 
1  INDTW-WALL  TEMP  1.  CONST=TWALL,  2.  ADIA  WALL  TEMP,3.  TEMP  DIST 
INPUT  BY  USER 

1  INDTR-TRANS  IND(IF  INm4(>=3)l. TRANS  AT  RETHETA  VALUE  GIVEN  IN  TRCON, 

2.TRANS  AT  X  GIVEN  IN  TRCON 

2  INDWC-  IND  BLAYER  CALC  1.  CENTERLINE  ONLY,  2.  WALL  ONLY,  3.  BOTH 

0  TRCON-TRANSmON  CONSTANT  EQUAL  TO  RETHETA  (REYNOLDS  NUMBER  BASED 

ON  THE  MC»ffiNTUM  THICKNESS  CS^  THE  BOUNDARY  LAYER)  C»  XTRANS 
(HORIZONTAL  DISTANCE  RELATIVE  TO  THE  THROAT)  DEPENDING  ON  INDTR 
.00001  THZER(>THETA(M(»ffiNTUM  THICKNESS)  AT  THROAT  IN  FEET(USUALLY=1.0E- 
5) 

1 14.9868  ***PO-STAGNATION  HIESSURE  IN  LBS/IN2 

520.  TO-SUPPLY  TEMP  IN  DEGREES  R 

520.  TWALL-WALL  TEMP  IN  DEGREES  R  IF  INDTW=1 

0.0  XTEND-EXTENSION  LENGTH  OF  NOZZLE  WALL  PAST  EXIT  AS  DEFINED 
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BY  THE  ISENTROPIC  CORE(INCHES)  (ASSUMES  UNIFORM  DUCT  FLOW) 
0.0  DL-INCREMENT  IN  X  FROM  ISENTROPIC  EXIT  TO  EXTENSION  LENGTH  IN 
(INCHES) 

3.2  B-WIDTH  OF  NOZZLE 
1 .4  GAMMA-RATIO  OF  SPECIFIC  HEATS 

0.76  CH^IEGA-EXPONENT  IN  VISCOSITY-TEMP  RELATION  (AIR=0.76) 

28.97  WATE-MOLECULAR  WT  OF  GAS  (AIR=29) 

0.24  CP-SPEC  HEAT  OF  GAS  IN  BTU/LB-DEG  R(AIR=0.24))  OR  LEAVE  BLANK 

AND  LET  PROGRAM  PICK  VALUES 
0.72  PR-PRANDTL  NUMBER  (AIR=0.72) 


The  modified  version  of  the  method  of  characteristics,  viscous  boundary  layer  code  was  called 
mocvbhf  and  is  listed  below; 


include  "mocsub.f 
include  "vblsub.r 

PRCXjRAM  mocvbl 

C  driver  code  for  method  of  characteristics  and  viscous 
C  boundary  layer  subroutines 
C  1  2  3  4  5  6  7 

C2345678901234567890123456789012345678901234567890I234567890I23456789012 

call  mocsub 
call  vblsub 
end 

SUBROUTINE  SETXEQ(XW,NO,XL,SML,NEND) 

EMPLICrr  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  XW(600),XL(600),SML(600),SMM(600) 

DO  70  J=l,600 
JT=J 

IF  (XL(J).GE.XW(NO) )  GO  TO  71 
70  CONTINUE 
71K=JT 
KENI>=NEND-3 
DO40I=NO,NEND 
5  IF(XW(I).LE.XL(K))  GO  TO  10 
K=K+1 
G0T05 

10  IF(K.LE.KEND)  GO  TO  20 
GO  TO  30 

20  CALL  LAGINT(XL(K-2),SML(K-2),5,XW(I),SMM(I),DYO) 

GO  TO  40 

30  CALL  LAGINT(XL(K-4),SML(K-4),5,XW(I),SMM(I),DYO) 

40  CONTINUE 
DO60J=NO,NEND 
XL(J)=XW(J) 

SML(J)=SMM(J) 
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60  CONTINUE 
RETURN 
END 

SUBROUTINE  LAGINT(X,Y,NPTS,XX,YY,DYY) 
IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
DIMENSION  X(1),Y(1) 

YY=0. 

DYY=0. 

DO40I=l,NPTS 

C1=L 

C2=I. 

DO  10  J=1,NPTS 
IF(J  .EQ.  I)GOTO10 
C1=C1*(XX-X(J)) 

C2=C2*(X(I)-X(J)) 

10  CONTINUE 
SUM=0. 

DO30J=l,NPTS 
IF(J.EQ.  I)GOTO30 
C3=l. 

DO20K=l,NPTS 

IF  (K  EQ.  I  OR.  K  EQ.  J)  GO  TO  20 
C3=C3*(XX-X(K)) 

20  CONTINUE 
SUM=SUM+C3 
30  CONTINUE 
C=Y(I)/C2 
YY=YY+C*C1 
DYY=DYY+C*SUM 
40  CONTINUE 
RETURN 
END 


subroutine  mocsub 

,^^tlt:^ti^**************************************************************** 

*  Modified  by:  LT  Douglas  L.  Seivwright  * 

*  March  1994  * 

*  BY  TERRY  EMMERT  15  DEC  1994  ♦ 

*  * 

*  INDSR  -  INDICATE  TYPE  OF  NOZZLE,  1-SHORT,  2-REGULAR,  3-EXPONENTIAL  * 

*  INDYTH- INDICATE  THROAT  CHI  EXIT  HEIGHT  TO  BE  READ  IN  YTHEX  * 

*  1-YEXIT,  2-YTH  * 

*  INDXTE  -  INDICATE  XT  CHI  XEXTT  TO  BE  READ  IN  XEXXT,  1-XEXIT,  2-XT  * 

*  INDOUT  -  INDICATE  OUTPUT,  1-STEP  BY  STEP,  2-  WALL  POINTS  ONLY  * 

*  * 


*  GAMMA- RATIO  CH^SPECMC  HEATS  (1.4)  * 

*  SMT- TEST  SECTION  MACH  NUMBER  ♦ 

*  XEXXT  -  EXIT  LENGTH  CHI  BEGINNING  OF  TEST  RHOMBUS  (INCHES)  * 

*  YTHEX -THE  HALF  HEIGHT  OF  NOZZLE  THROAT  OR  EXIT  DEPENDING  ON  * 

*  INDYTH  (INCHES)  * 
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n  n  n  n  n  n 


*  RCT- RADIUS  OF  CURVATURE  AT  THROAT  (INCHES)  * 

*  DELMUL  -  MULT.  FACTOR  FOR  X  INCREMENT  (1.0-150  PTS,  0.5-400  PTS)  * 

*  * 


IMPLICIT  DOUBLE  PRECISION  (A-HO-Z) 

INTEGER  ERROR 

DIMENSION  Y(2,400),X(2,400),A(2,400),SM(2,400)^TA(2, 400), 
1T(2,400),THE(2,400),XL(600),XW(600),YW(600),SML(600), 
2SMW(600),THEW(600),XCOR(600),FMT(10),R(600),SMLR(400), 
3SMWR(400),XLXEX(400),XLYEX(400),YWYEX(400),XLXT(400) 

CHARACTER*8,FMT 

CHARACTER*20,TYPE1,TYPE2,TYPE3,HGT1,HGT2,LGTH1,LGTH2, 

10UTPT1,0UTPT2 

CHARACTER*l,TYPNOZ,TYHIGT,TYPLTH,TYPOUT,INSRP 

COMMON  Y(2, 400), X(2, 400), A(2,400),SM(2,400),ETA(2,400),T(2, 400), 

1THE(2,400),XL(600),XW(600),YW(600),SML(600),SMW(600),THEW(600), 

2XCOR(600),FMT(10),R(600) 

COMMON  SMLR(400),SMWR(400),XLXEX(400),XLYEX(400),YWYEX(400), 
1XLXT(400) 


OUTPTl  IS  THE  MAIN  OUTPUT  FILE  FC«  char6.f  WHICH  DISPLAYS  THE 
ISENTROPIC  CCMRE  DATA  OF  THE  NOZZLE.  OUTPT2  IS  THE  DATA  FROM 
THE  OUTPTl  FILE  THAT  IS  USED  FC»  THE  VISCOUS  CALCULATIONS  IN 
nbl6.f 


C  Ca^(UNIT=16,FILE=’outptl’,STATUS='UNKNOWN') 
OPEN(UNIT=17,FILE=’outpt2',STATUS='UNKNOWN') 


C 

C  DO  NOT  REMOVE  THESE  ASSIGNMENT  STATEMENTS.  THESE  VARIBLES  WERE 
C  USED  IN  THE  ORIGINAL  PROGRAM  FORMAT  WHICH  DETERMINED  THE  OUTPUT 
C  MEDIUM  FOR  THE  DATA,  i.e.,  MAGNETIC  TAPE  C«  PUNCH  CARDS.  THE 
C  MEANS  FOR  THIS  NO  LONGER  EXISTS,  HOWEVER  PORTIONS  OF  THE  PROGRAM 
C  STILL  REFER  TO  THESE  VARIBLES  IN  CaiDER  TO  EXECUTE  BUT  EFFECT  THE 
C  OUTPUT  IN  A  BENIGN  MANNER 
C 
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INDCAL=0 

INDTAP=0 

INDCRIM) 


C  FMT  =  M2 

C  INDSR=2 
C  INDYTH=1 
C  INDXTE=1 
C  INDOUT=2 
C  GAMMA=1.4 
C  SMT  =  2.0 
C  XEXXT  =  25. 
C  YTHEX  =  2.8 
C  RCT  =  20. 

C  DELMUL  =  .5 


read(*,*)  INDSR 
read(*,*)  INDYTH 
read{*,*)  INDXTE 
read(*  *)  INDOUT 
read(*,*)  GAMMA 
read(*,*)  SMT 
read(*,*)  XEXXT 
read(*,*)  YTHEX 
•read(*,*)  RCT 
read(*,*)  DELMUL 


C  WRITE(  16,40) 

C  40  F0RMAT(1X  15X,'U.S.  NAVAL  (»DANCE  LABCKATORY,  WHITE  OAK,  MARYLAND' 
C  l,//,5X'COMPUTER  PROGRAM  FOR  THE  DESIGN  OF  TWO-DIMENSIONAL' 

C  2'SUPERSONIC  NOZZLES'y/,34X,PART  r,//,20X'THE  ISENTR(»>IC' 

C  3'CORE  (W  TOE  NOZZLE',/////) 

C  WRITE(16,406)(FMT(I),I=1,10) 

C  406FCaiMAT(20X,10A8////) 

C  WRITE(16,41)  INDSR,INDYTOIM)XTE,IND0UT,INDCAL,INDTAP,INDCRD, 

C  1GAMMA,SMT,XEXXT,YTHEX,RCT,DELMUL 
C  41FC»MAT(  20X,'INPUTDATA',//,20X,'CARDNO.  1', 

C  1  5X,'INDSR=',I12y,34X'lNDYTO=',I12,/, 

C  734X,'INDXTE  =',I12,/,34X,'INDOUT  =',I12y,34X,'INDCAL  =',112/, 

C  834X,'INDTAP  =',I12,/,34X,'INDCRD  =',112// 

C  520X,'CARD  NO.  2',  5X,'GAMMA  =',E12.5y,37X'SMT  =',E12.5,/,35X, 

C  6'XEXXT  =',E12.5,/,35X'YTHEX  =',E12.5,/,37X,'RCT  =',E12.5,/, 

C  934X,DELMIIL  =',E12.5) 

EPSC=0.001 

LCa.ITA=25 

GA=GAMMA+1. 
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GB=GAMMA-1. 

GC=2.*GB 

GD=GA/GC 

GE=GA/GB 

GG=2./GB 

GI=GA/2. 

WU=SQRT(GE) 

TERM=(GA/(2.0+GB*SMT**2))**GD 

ETAW=SMT*TERM 

TANA=1  ./SQRT(SMT**2-1 .) 

IF(INDYTH.EQ.l)  GO  TO  50 
YEXrr=YTHEX/ETAW 
YTH=YTHEX 
GOTO60 
50  YEXrr=YTHEX 
YTH=YTHEX*ETAW 
60  IF(rNDXTE.EQ.  1)  GO  TO  65 
XT=XEXXT 

XEXIT=XT+YEXIT*SQRT(SMT*SMT-1 .0) 

GO  TO  70 
65  XEXIT=XEXXT 

XT=XEXIT-YEXn'*SQRT(SMT*SMT-1.0) 

7000801=1,600 
XW(I)=0.0 
SMW(I)=1.00000 
YW(I)=ETAW 
80  CONTINUE 
GO  TO  (100,85, 98), INDSR 
85  B=XT/2.0/(SMT-l  .0)*SQRT(GA/RCT/YTH)-2.0 
IF(B.GT.-2..AND.B.LT.1.0)  GO  TO  95 
C  WRITE  (16,90)  B 

C  90  FC«MAT(lXy//,19X,’**  CUBIC  CENTERLINE  MACH  NO.  DISTRIBUnON’/, 

C  123X,'IS  NOT  APPROPRIATE  FOR  INPUT  GIVEN,  B  =',E12.6) 

WRITE(*,1200) 

1200  FORMAT(lX,’***CUBIC  CENTERLINE  MACH  NO  DISTRIBUTION  IS  NOT 
1'  APPROPRIATE  FOR  INPUT,/,  1X,'GIVEN’) 

GO  TO  98 

95  CALL  REG(XL,SML,XCOR,SMT,YTH,YEXIT,XT,RCT,B,LASTN,NEND,GAMMA,XEXIT 
LETAW,DELMUL) 

GOTO  no 

98  CALL  XP0(XL,SML,XCC«,SMT,YTH,YEXIT,XT,RCT3,LASTN,NEND,GAMMA,XEXIT 
1,ETAW,DELMUL) 

GOTO  110 

100  CALL  SHO(XL,SML,XCaR,SMT,YTH,YEXIT,XT,RCT,B,LASTN,NEND,GAMMA,XEXIT 
1,ETAW,DELMUL) 
no  ASSIGN  740  TO  MU 
KAPPA=2 
NEN=NEND-1 
Y(2,l)=0.0 
THE(2,l)=O.0 
T(2,l)=0.0 
ETA(2,1)=0.0 
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C  WRITE(16,111) 

C  111  FORMAT(lXy//,10X,'CHARACTERISTICS  MANIPULATION  ’ 

C  1  '(*  INTERPOLATED  WALL  VALUES)’, //,5X,’N',4X;K',6X,'X(INCHES)' 

C  2,5X,'Y(INCHES)',7X,'MACH  NO.’, 5X, 'STREAM  ANGLE’,/) 

DO  900  N=I,NEN 
N1=N 

IF(LASTN.LE.N)  GO  TO  370 
SM(2,1)=SML(N) 

X(2,1)=XL(N) 

A(2, 1)=1  ./SQRT(SML(N)**2-1.) 

IF(N.GT.l)GOTO470 

KO=l 

GO  TO  850 

370  X(2,KAPPA)=XL(N) 
y(2,KAK>A)=(XL(N)-XT)*TANA 
SM(2,KAPPA)=SMT 

a(2,k:appa)=tana 

T(2,KAPPA)=0.0 

THE(2,KAPPA)=0.0 

ETA(2,KAPPA)=ETAW*Y(2,KAPPA) 

470  IF(LASTN.GT.N)  GO  TO  490 
KAPPA=KAPPA+1 
490  DO  700  K=KAPPA,N 
KO=K 

THEL=THE(1,K-1)-WU*ATAN(1./(WU*A(1,K-1)))+ATAN(1./A(1,K-1)) 

THER=THE(2,K-1)+\W*ATAN(1./(WU*A(2,K-1)))-ATAN(1./A(2,K-1)) 

THE(2,K)=(THEL+THER)/2. 

T(2,K)=SIN(THE(2,K))/COS(THE(2,K)) 

CALL  AC(M(A(1,K-1),A(2,K-1),WU,THEL,THER,EPSC, LOLITA,  A(2,K)) 
TAB=(T(2,K-1)+T(2,K))/2. 

AAB=(A(2,K-l>+A(2,K))/2. 

TAA=(T(l,K-l)+T(2,K))/2. 

AAA=(A(1,K-1)+A(2,K))/2. 

SM(2,K)=SQRT(A(2,K)**2+l  .)/A(2,K) 

SMAB=(SM(2,K-l)+SM(2,K))/2. 

CAT=(TAB-AAB)/(1  .+TAB*AAB) 

DAT=(TAA+AAA)/(1  .-TAA*AAA) 

X(2,K)=(Y(lJfC-l)-Y(2,K-l)+CAT*X(2,K-l)-DAT*X(14C-l))/(CAT-DAT) 

Y(2,K)=Y(2,K-1)+CAT*(X(2,K)-X(2,K-1)) 

CALLATE(GA,GD,SMAB,GB,THE(2,K),ETA(2,K-1),X(2,K),X(2,K-1),Y(2,K), 

1Y(2,K-1),SM(2,K-1),SM(2,K),ETA(2,K)) 

KIP=KJCAH»A+2 

IF  (INDOUT.EQ.2)  GO  TO  650 

XX=X(24C)*YEXIT 

YY=Y(24C)*YEXrr 

THD=THE(2JC)*57.3 

C  WRITE  (16,491)  N,K,XX,YY,SM(2,5),THD 
C  491  FC»MAT(1X,2I5,4E15.6) 

650  IF(ETA(2,K).GT.ETAW)  GO  TO  720 
700  CONTINUE 
GO  TO  850 

720  CALL  WINTER  (ETAW,X(2,K),X(2,K-1),X(2,K-2),ETA(2,K),ETA(2,K-1),ETA 
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1(2,K-2),XW(N),K) 

GOTOMU,(740,760) 

740  ASSIGN  760  TO  MU 
NO=Nl 

760  CALL  WINTER(ETAW,Y(2,K),Y(2,K-1),Y(2,K-2),ETA(2,K),ETA(2,K-1),ETA( 
12,K-2),YW(N),K) 

CALLWINTER(ETAW,SM(2,K),SM(2,K-1),SM(2,K-2),ETA(2,K),ETA(2,K-1),E 

1TA(2.K-2),SMW(N),K) 

CALL  WINTER  (ETAW,THE(2,K),THE(2,K-I),THE(2,K-2),ETA(2,K),ETA(2,K- 
1 1),ETA(2,K-2),THEW(N),K) 

XX=XW(N)*YEXIT 

YY=YW(N)*YEXIT 

THI>=THEW(N)*57.3 

C  WRITE  ( 16,492)  N,K,XX,YY,SMW(N),THD 
C  492FORMAT(lX,lH*,2I5,4E15.6) 

850  DO  900  IOTA=l,KO 
X(l,IOTA)=X(2,ICITA) 

Y(l,IOTA)=Y(2,IOTA) 

A(l,IOTA)=A(2,IOTA) 

T(l,IOTA)=T(2,IOTA) 

SM(l,IOTA)=SM(2,IOTA) 

THE(  1  ,IOTA)=THE(2,IOTA) 

ETA(l,IOTA)=ETA(2,IOTA) 

900  CONTINUE 
XW(NEND)=XL(NENP) 

YW(NEND)=1. 

SMW(NEND)=SMT 

THEW(NEND)=0.0 

CALL  SETXEQ(XW,NO,XL,SML,NEND) 

960  JO=NEND-NO 
DO990  J=UO 
NJ=NOfJ 
SML(J  )=SML(NJ) 

SMW(J  )=SMW(NJ) 

XL(J  )=XL(NJ)*YEXIT 
XW(J  )=XW(NJ)*YEXIT 
YW(J  )=YW{NJ)*YEXIT 
THEW(J  )=THEW(NJ)*57.3 

990  CONTINUE 
XEXIT=XEXIT*YEXIT 
XT=XT*YEXIT 
Jll=JO-l 

D0991  J4=2,J11 

DS=SC^T((XW(J4+1)-XW(J4-1))**2-KYW(J4+1)-YW(J4-1))**2) 

DTOE=THEW(J4+1)-THEW(J4-1) 

IF(DTHE.EQ.0.0)  DTHE=l.E-6 
R(J4)=DS/DTHE*57.3 

991  CONTINUE 
R(1)=0.0 
R(JO)=0.0 

C  WRrrE(  16,493) 

C  493  FC«MAT(1X,///,30X,'FINAL  OUTPUT  TO  PART  I,  ISENTRCffIC  CC«E  CONTOUR 
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n  n  n  n 


C  l',//,5X,'r,4X,’X(INCHES)’,6X;Y(INCHES)',5X;CL  MACH  NO.’,4X, 

C  2'WALLMACHNO.',3X,'WALLANGLE’,2X,'RADOFCURV(IN)  ',/) 

C  WRITE(16,494)a,XL(I),YW(I),SML(I),SMW(I),THEW(I),R(I),I=l,JO) 

C  494  F(»MAT(1X,I5,6E15.6) 

CONT=0.0 

C  WRITE(17,142)(FMT(J),J=1,10) 

C  142  FORMAT(10A8) 

WRITE(  17, 1 40)JO,  YTH,  YEXIT,XT,XEXIT 

140  FORMAT(I5,4E20.7) 

WRITE(17,141)(XL(J),YW(J),SMW(J),CONT,SML(J),J=l,JO) 

141  FORMAT(5E20.7) 

ENDFILE17 
REWIND  17 

C  CLOSE(16) 

CLOSE(17) 

WRITE(*  1100) 

1 100  FORMAT(lX,///,'OinPUT  ISENTR(M>IC  DATA  FOR  NOZZLE  CONTOUR' 
1,'  STORED  IN  FILENAME  outptl' 

2y//,DATA  FROM  THIS  FILE  TO  BE  USED  IN  THE  VISCOUS’ 

C  3,'  PROGRAM  nbl6.f  IS  STORED', /,'IN  FILENAME  outpt2') 
return 
END 


SUBROUTINE  REG(XL,SML,XCOR,SMT,YTH,YEXIT,XTJlCT,B,LASTN,NEND,GAMMA 
l,XEXrr,ETAW,DELMUL) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  XL(600),SML(600),XCOR<600) 
SKIFG(X)=SMT-{SMT.I.0)*(1.0-B*X/XT)*(1.0-X/XT)*(1.0-X/XT) 

C  WRITE(16,10)  SMT,YTH,YEXIT,XEXIT,XT 

C  10  FC«MAT(lX,////,19X,’NOZZLE  PARAMETERS  (LENGTHS  IN  INCHES)' 

C  1  ,//,5X,'MACH  NO.',5X,'YTH',  I0X,'YEXn”,7X,'XEXIT',8X,'Xr 
C  2y,lX,5EI3.5y) 

C  WRITE(I6,20)  RCT,B 

C  20  FC»MAT(IX,27X,'RCr,I0X,'B'/,22X,2EI3.5,///,I0X, 

C  I'CENTERLINE  MACH  NUMBER  DISTRIBUTION  USING  CUBIC  EQUATION', 

C  2//,20X,'N’,7X,’X’,  15X,'MACH  NO.’^) 

XT=XTA^XIT 

XEXIT=XEXIT/YEXIT 

XB=0.0 

DO  50 15=1,600 

XB=XB40.00001 

SMB=SKIFG(XB) 

IF(SMB.GE.  1.0001)  GO  TO  60 
50  CONTINUE 
60  XL(1)=XB 
SML(1)=SMB 
XCOR(l)=XB*YEXIT 
DELX=0.0001 
DO  88 1=2,600 
rT=i 
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IF(I.LE.20)GOTO80 

DELX=LOG(  100.  *(XL(I- 1  )/XEXIT)+ 1 .  )/460.  *XEXIT 
DELX=DELX*DELMUL 
80  XL{I)=XL(I-1)+DELX 
XCOR{I)=XL(I)*YEXIT 
SML(I)=SKIFG(XL(I)) 

IF(XL(I).GE.XT)  GO  TO  85 
88  CONTINUE 
85  LASTN=rT 
SML(I)=SMT 
XL(I>=XT 

XCOR(I)=XL(I)*YEXIT 
N1=LASTN+1 
DO  90  J=N1,600 
JTM=J 

DELX=LOG(100.*(XL(J-l)/XEXn>l-l)/460.*XEXIT 

DELX=DELX*DELMUL 

XL(J)=XL(J-1)+DELX 

XCOR(J)=XL(J)*YEXIT 

SML(J)=SMT 

IF(XL(J).  GE.  XEXTT)  GO  TO  95 
90  CONTINUE 
95NEND=JTM 
XL(NEND)=XEXIT 
XCOR(NEND)=XL{NEND)*YEXIT 
SML(NEND)=SMT 

C  WRITE{16,100){ICXCC«(K),SML(K)^=1,NEND) 

C  100  FORMAT(16X,I5,E15.6,2X,E15,6) 

RETURN 

END 

SUBROUTINE  SH0(XL,SML^CC»CSMT,YTH,YEXIT;CT41CT,B,LASTN,NEND,GAMMA 
l,XEXrr,ETAW,DELMUL) 

IMPLICIT  DOUBLE  DECISION  (A-H,0-Z) 

DIMENSION  XL(600),SML(600),XCOR(600) 

SKIFGPC)={(((C6*X+C5)*X+C4)*X+C3)*X+C2)*X+C1 

Cl=1.0 

C2=0.023652 

C3=0.80082 

C4=-0.44309 

C5=0.09893 

C6=-0.78644E-2 

ASSIGN  81  TO  NU 

XB=0.0 

DO  50 15=1,600 
XB=XB+0.00001 
XC=XB/ETAW 
SMB=SKIFG(XC) 

IF(SMB.GE.  1.0001)  GO  TO  60 
50  CONTINUE 
60  XL(1)=XB 
SML(1)=SMB 
XCOR(l)=XB*YEXIT 
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XEXIT=3.0 
DELX=0.0001 
DO  88  1=2,600 
17=1 

IF(I.LE.20)GOTO80 

DELX=LOG(100.*(XL(I-l)/XEXn>(-l.)/460.*XEXIT 

DELX=DELX*DELMUL 

80  XL(I)=XL(I-1)+DELX 
GOTONU,(81,83) 

81  XCC=XL(I)/ETAW 
IF(XCC.LE.  1.60174)  GO  TO  82 
Cl=1.4554 

C2=0.74251 
C3=0. 17251 
C4=-0.037244 
C5=0.62572E-2 
C6=.0.34138E-3 
ASSIGN  83  TO  NU 
GO  TO  83 

82  XCOR(I)=XL(I)*YEXIT 
XC=XL(I)/ETAW 
SML(I)=SKIFG{XC) 

GO  TO  86 

83  XCOR(I)=XL(I)*YEXIT 
XC=LOG(XL(i)/ETAW) 

SML(I)=SKIFG(XC) 

86  IF(SML(I).GE.SMT)  GO  TO  85 
88  CONTINUE 
85  LASTN=IT 
SML(I)=SMT 
XT=XL(I) 

XCOR(I)=XT*YEXIT 

XEXrr=XT+SQRT(SMT**2-l.) 

N1=LASTN+1 
DO  90  J=N1,600 
JTM=J 

DELX=LOG(100.*(XL(J-1)/XEXIT)+1.)/460.*XEXIT 

DELX=DELX*DELMUL 

XL(J)=XL(J-1>+DELX 

XCOR(J)=XL(J)*YEXIT 

SML(J)=SMT 

IF(XL(J).  GE.  XEXTT)  GO  TO  95 
90  CONTINUE 
95NEND=jrM 
XL(NEND)=XEXIT 
XCOR(NEND)=XL(NEND)*YEXIT 
SML(NEND)=SMT 

C  WRrrE(16,98)  SMT,YTH,YEXIT,XCOR(NEND),XCOR(LASTN) 

C  98  FORMAT(lX,////,19X,'NOZZLE  PARAMETERS  (LENGTHS  IN  INCHES)' 

C  iy/,5X,'MACH  NO.',5X,’YTH’,10X,'YEXrr,7X,'XEXrr,8X, 

C  2’XT',/,1X,5E13.5, 

C  3///,  10X,'CENTERLINE  MACH  NUMBER  DISTRIBUTION  FCHl  A  SHC81T  NOZZLE’, 
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C  4//,20X,'N’,7X,'X',10X,'MACH  NO.’,/) 

C  WRITE(I6,100)(K,XCOR(K),SML(K),K=1,NEND) 

C  100  FORMAT(16X,I5,2E15.6) 

RETURN 

END 

SUBROUTINE  XPO(XL,SML,XCOR,SMT,YTH,YEXIT, XT, RCT,B,LASTN,NEND,GAMMA 
l,XEXrr,ETAW,DELMUL) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  XL(600),SML(600),XCOR(600) 

SKIFG(X)=TM2*(  1  .-(EXP(C2*(1.-X/XT)*(  1  .-X/XT))-1  .)7rMl)+l . 
DMDX=0.5*SQRT((GAMMA+1.)/RCT/YTH) 

T=DMDX*XT/(SMT-1.) 

ITER=0 
Gl=0.001 
Tl=2.0 
El=l.-2./T 
G2=T/2.0 
30  EP=EXP(G2) 

T2=2.*G2*EP/(EP-1.) 

E2=l.-T2/T 

IF(ABS(E2).LE.0.0001)  GO  TO  45 
B1  =(G2-G1)/(E2-E1) 

ITER=ITER+1 
IF{ITER.GT.50)  GO  TO  35 
G1=G2 
E1=E2 

G2=G1-B1*E1 
IF(G2.EQ.0.00)  G2=0.0001 
GO  TO  30 

C  35  WRITE(16,40)  ITER 

C  40  FORMAT(lX,20X,TrERATION  IN  SUB  XPO  EQUALS',15) 

35  return 
45  C2=G2 

C  WRITE(  16,47)  SMT,YTH,YEXIT,XEXIT,XT 

C  47  FORMAT(lX,////,  19X,'NOZZLE  PARAMETERS  (LENGTHS  IN  INCHES)' 

C  1,//,9X,'MACH  NO.',7X,'YTH',10X,'YEXIT,7X,XEXrr,8X,'Xr 
C  2,/,5X,5E13.5,/) 

C  WRrrE(16,48)  RCT,DMDX,C2 

C  48  FORMAT(lX,23X,'RCr,8X,'DMT,8X,’C2’,/,18X,3E13.5,///,7X, 

C  I'CENTERLINE  MACH  NUMBER  DISTRIBUTION  USING  EXPONENTIAL' 

C  2'EQUATION’,//,23X,'N',7X,'X,  10X,'MACH  NO.',/) 

TM1=EXP(C2)-1.0 

TM2=SMT.1.0 

XT=XT/YEXIT 

XEXIT=XEXIT/YEXIT 

XB=0.0 

DO  50 15=1,600 

XB=XB+0.00001 

SMB=SKIFG(XB) 

IF(SMB.GE.1.0001)  GO  TO  60 
50  CONTINUE 
60XL(1)=XB 
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SML(1)=SMB 
XCOR(l)=XB*YEXrr 
DELX=0.0001 
DO  88 1=2,600 
IT=I 

IF{I.LE.20)GOTO80 

DELX=LOG(100*(XL(I-1)/XEXIT)+1.)/460.*XEXIT 
DELX=DELX*DELMUL 
80  XL(I)=XL(I-1>+DELX 
XCOR(I)=XL(I)*YEXIT 
SML(I)=SKIFG(XL(I)) 

IF(XL(I).GE.XT)  GO  TO  85 
88  CONTINUE 
85  LASTN=IT 
SML(I)=SMT 
XL(I)=XT 

XCOR(I)=XL(I)*YEXIT 
N1=LASTN+1 
DO90  J=N1,600 
JTM=J 

DEIJC=LOG(100.*(XL(J-l)/XEXn>(-l.)/460*XEXIT 

DELX=DELX*DELMUL 

XL(J)=XL(J-1)+DELX 

XCOR(J)=XL(J)*YEXIT 

SML(;)=SMT 

IF(XL(J).  GE.  XEXTT)  GO  TO  95 
90  CONTINUE 
95NENr>=JTM 
XL(NEND)=XEXrT 
XCOR(NEND)=XL(NEND)*YEXIT 
SML(NEND)=SMT 

C  WRITE(16,100)(K,XCOR(K),SML(K),K=1,NEND) 

C  100FC»MAT(18X,I5,2E15.6) 

RETURN 

END 

SUBROUTINE  ACOM(P,Q,W,STUEPSC,LCft.ITA,AC) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

1005  DIMENSION  ANOT(100),AP(100) 

1030  ANOT(l)=(P+Q)/2. 

1040AP(l)=W*ATAN(L/(W*ANOT(l)))-ATAN(L/ANOT(l))+(S-R)/2. 

1050  ANOT(2)=ANOT(l)+.l 

1060  AP{2)=W*ATAN(L/(W*ANOT(2)))-ATAN(L/ANOT(2)>+(S-R)/2. 

1070  DO  1 1 10  KOUNT=3, LOLITA 

1080ANOT(KOUNT)=ANOT(KOUNT-l)-AP(KOUNT-l)*(ANOT(KOUNT-l)-ANOT(KOUNT-2) 

l)/(AP(KOUNT-l)-AP(KOUNT-2)) 

1090AP(KOUNT)=W*ATAN(L/(W*ANOT(KOUNT)))-ATAN(L/ANOT(KOUNT))+(S-R)/2. 

1095  JULES=KOUNT 

1 100  IF(ABS{(ANOT(KOUNT)-ANOT(KOUNT-1))/ANC)T(KOUNT))-EPSC)1 145,1 145,1 1 1 
10 

11 10  CONTINUE 
1145  AC=ANOT(JULES) 

IF(JULES.LT.LOLITA)  GO  TO  1 150 
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C  WRITE  (16,1146) 

C  1146  FORMAT(20X,’KOUNT') 

1150  RETURN 
END 

SUBROUTINE  WINTER  (EXM,R,S,T,XI,XJ,XK,TERP,K) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIFF(XI,XJ)=XI-XJ 

DIVAYF(R,S,XI,XJ)=DIFF(R,S)/DIFF(XI,XJ) 

DIVBYF(R,S,T,XI,XJ,XK)=DIVAYF(DIVAYF(R,S,XI,XJ),DIVAYF(S,T,XJ,XK), 

1XI,XK) 

IF(K.EQ.2)GOTO10 

TERP=R+DIFF(EXM,XI)*PIVAYF(R,S,XI,XJ)+DIFF(EXM,XJ)*DIVBYF(R,S,T,X 

1LXJ,XK)) 

GO  TO  15 

10  TERP={EXM-XJ)*R/(XI-XJ)+(EXM-XI)*S/(XJ-XI) 

15  RETURN 
END 

SUBROUTINE  ATE(GA,GD,SMAB,GB,THETA,ETA1,X2,X1,Y2,Y1,SM1,SM23TA2) 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

PQF(FM)=FM*(GA/(2.+GB*FM**2))**GD 

X2X1=X2-X1 

Y2Y1=Y2-Y1 

SNA=.5*(L/SM1+1./SM2) 

ETA2=ETAl+.5*(P(y(SMl)+PC^(SM2))*SNA*SC^T(X2Xl*X2Xl+Y2Yl*Y2Yl) 

RETURN 

END 


subroutine  vblsub 


* 

♦ 

* 

♦ 

* 

♦ 


Modified  by:  LT  Douglas  L.  Seivwright 
March  1994 

PROGRAM  INPUTS: 


♦ 

♦ 

* 

♦ 


* 


♦ 


*  * 

*  * 

*  INDMO-BOUNDARY  LAYER  MODE:  L  STRICTLY  LAMINAR,  2,  STRICTLY  * 

*  TURBULENT,  3.  LAM-TRANS-TURB  * 

*  INDTW-WALL  TEMP  INDICATION:  1.  CONSTANT=TWALL,  2.  ADIA  WALL  TEMP,  * 

*  3.  TEMPERATURE  DISTRIBUTION  INPUT  BY  USER  ♦ 

*  INDTR-TRANSmON  INDICATION(IF  INDMO=3):  1.  TRANS  AT  RETHETA  VALUE  * 

*  GIVEN  IN  TRCON,  2.  TRANS  ATX  GIVEN  IN  TRCON  * 

*  INDWC-  INDICATE  BOUNDARY  LAYER  CALCULATION:  * 

*  L  CALCULATE  CENTERLINE  ONLY,  2.  CALCULATE  WALL  ONLY,  * 

*  3.  CALCULATE  BOTH  * 

*  * 


*  * 

*  TRCON-TRANSmON  CONSTANT  EQUAL  TO  RETHETA  (REYNCftDS  NUMBER  BASED  * 

*  ON  THE  MOMENTUM  THICKNESS  OF  THE  BOUNDARY  LAYER)  OR  XTRANS  * 

*  (HORIZONTAL  DISTANCE  RELATIVE  TO  THE  THROAT)  DEPENDING  ♦ 
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♦  ON  INDTR  * 

♦  THZERO-THETA  (MOMENTUM  THICKNESS)  AT  THROAT  IN  FEET  * 

♦  (USUALLY=  l.OE-5)  * 

♦  PaSTAGNATION  PRESSURE  IN  LBS/IN2  + 

♦  TO.SUH»LY  TEMP  IN  DEGREES  R  * 

♦  TWALL-WALL  TEMP  IN  DEGREES  R  IF  INDTW=1  * 

♦  XTEND-EXTENSION  LENGTH  CF  NOZZLE  WALL  PAST  EXIT  AS  DEFINED  * 

♦  BY  THE  ISENTROPICCORE(INCHES)  (ASSUMES  UNIFORM  DUCT  FLOW)  * 

♦  DL-INCREMENT  IN  X  FROM  ISENTROPIC  EXIT  TO  EXTENSION  LENGTH  ♦ 

♦  IN  (INCHES)  * 

♦  B-WIDTH  (F  NOZZLE  ♦ 

♦  * 


♦  * 

♦  GAMMA-RATIO  OF  SPECIFIC  HEATS  ♦  . 

♦  OMEGA-EXPONENT  IN  VISCOSITY-TEMP  RELATION  (AIR=0.76)  * 

♦  WATE-MOLECULAR  WT  OF  GAS  (AIR=29)  * 

♦  cp-srecmc  heat  CF  gas  in  BTU/LB-DEG  R  (A1R=0.24))  or  LEAVE  ♦ 

♦  BLANK  AND  LET  PROGRAM  PICK  VALUES  ♦ 

♦  PR-KIANDTL  NUMBER  (AIR=0.72)  * 

♦  * 

*  ♦ 

♦  **  IFINDTW=3;  * 

♦  NUM-NUMBER  OF  WALL  TEMP  INPUT  CARDS  (THREE  OR  MORE  POINTS  * 

♦  ARE  REQUIRED  OR  PROGRAM  WILL  TERMINATE  DATA  OUTPUT  PRIOR  ♦ 

♦  TO  CCMPLETING  RUN)  ♦ 

♦  XXX-DISTANCE  FROM  THROAT  IN  INCHES  * 

♦  TWW-WALL  TEMPS.  (DEGREES  R)  CC«RESPONDING  TO  X=XXX  * 

♦  ♦ 


C  1  2  3  4  5  6  7 

C23456789012345678901234567890123456789012345678901234567890123456789012 
IMPLICIT  DOUBLE  PRECISION  (A-H,  O-Z) 

DIMENSION  X(IOOO),YY(IOOO)3ME(1000)HALFA(16)^(16XXILN(16), 

1TW(1000),S(1000),POVPO(1000)T)MDS(1000),FMT(10),YSAV(1000), 

2DELTAS(I0OO),YS(10OO)4)ELY(I0OO),YYY(10O0),YC2DLY(10OO), 

>blayer( 1000),mointh( 1000),dispth( 1000) 

CHARACTER*8,  FMT 
REALB 

C(F4MONCFOV2,CFOV2L,CFOV2T,DELRAT,DELTAT)ELTRET)ELTTH,DHEAT,DTHDS 

l,DUEDSJEN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE, THETA, 

2TAUWAL,THBAR,THETA2,TH0VDL,TLTE,ULUE,TRC0N,THZER0P0,T0,TWALL, 

3GAMMA,C«VIEGA,WATE,CP,PR,GMU0,SW,A1,B1,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAT)PDS,DL,XINC,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(IOOO),FMT(10),IT,L,N,LINES,KOUNT,LAP,NN,INDCF,rNDMO,INDMU, 

7INDTW,INDTR,INDWCA4AXJS4IN,INDINP,1ND0UT,ITMES,INDPRGADELIN, 

>THEIN,DELSIN 
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OPEN(U>OT=17,FILE=Wpt2',STATUS='UNKNOWN') 

OreN(lJNIT=26,Fn^='outpt3\STATUS=TrNKNOWN’) 

open(unit=20,file='visdata',status='unknown') 

HALF  A(l)  =  .01357623 

1 1  HALF  A(2)  =  .03 1 126762 

12  HALF  A(3)  =  .047579256 

13  HALF  A(4)  =  .062314485 

14  HALF  A(5)  =  .074797995 

15  HALF  A(6)  =  .084578260 

16  HALF  A(7)  =  .091301710 

17  HALF  A(8)  =  .094725305 

18  HALF  A(9)  =  HALFA(8) 

19  HALFA(IO)  =  HALFA(7) 

20  HALFA(1 1)  =  HALFA(6) 

21  HALFA(12)  =  HALFA(5) 

22  HALFA(13)  =  HALFA(4) 

23  HALFA(14)  =  HALFA(3) 

24  HALFA(15)  =  HALFA(2) 

25  HALFA(16)  =  HALFA(1) 

26  XI(1)  =  .005299535 
27X1(2)  =  .02771249 
28  XI(3)  =  .0671844 
29X1(4)  =  1222978 
30X1(5)=  .19106188 

31  XI(6)  =  .27099161 

32  XI(7)  =  .35919822 

33  XI(8)  =  .45249374 

34  XI(9)  =  .54750626 

35  XI(IO)  =  .64080178 

36  XI(11)  =  . 72900839 

37  XI(12)  =  .80893812 

38  XI(13)  =  .8777022 
39X1(14)  =  9328156 

40  XI(15)  =  .97228751 

41  XI(16)  =  .99470046 

42  XILN(l)  =  -5.2401361 

43  XILN(2)  =  -3.5858719 

44  XILN(3)  =  -2.7003143 

45  XILN(4)  =  -2.1012%2 

46  XILN(5)  =  -1.6551579 

47  XILN(6)  = -1.3056674 

48  XILN(7)  = -1.0238809 

49  XILN(8)  =  -0.79298127 

50  XILN(9)  =  -0.60238131 

51  Xn.N(10)  =  -.44503503 

52  XILN(11)  = -.3 1606998 

53  XILN(12)  =  -.21203278 

54  XILN(13)  = -.13044784 

55  XILN(14)  =  -.06954771 1 

56  XILN(15)  =  -.028103680 

57  XILN(16)  =  -.0053135801 
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non 


INTRODUCTION  TO  PROGRAM 


LAP  =  0.0 

XINC=0.0 

INDCF=1 

INDPRG=2 

INDINP=2 

ITMES=0 

9  ITMES=ITMES+1 

10  CALL  RESTOR 
QSUM=0.0 
DHL=0.0 


CALL  IN 

IF(LAP.EQ.2)goto699 


CP1=CP 
CALL  DATA 
PRSC3l  =  SQRT(PR) 

PR2MI6  =  PR**(..  16666667) 

PRQBRT  =  PR**(.33333333) 

GO  TO  (100, 1 10, 100),INDMO 
100  L=1 
GO  TO  130 
110L=5 

130  THETA  =  THZERO 

417  GMUO=(.01298256/(TOf216.))*SQRT  ((TO/672.)**3) 
GM102=(GAMMA-1  .)/2. 
G01MG=GAMMA/(L-GAMMA) 


DO  300  N=MIN,MAX 

TETO=l./(l.+((GAMMA-l.)/2.)*(EME(N)**2)) 

TE=TETO*TO 

IF  (CPI.EQ.0.0)  CP={0.2405-L186E-05*TE+20.1E-09*TE*TE) 

$  *32.175 

419  AE=SQRT  (49764.  *GAMMA*TE/WATE) 

UE=EME(N)*AE 

GMUE=2.14E-8*TE**1.5/(TE+180.) 

GMUE=2.27E-08*TE**  1 .5/(TE+198.6) 

639  P0VP0(N)=(1.(H<M102*(EME(N)**2))**G01MG 
RHOE=(POVPO(N)*PO*WATE)/(49764.*TE) 

REL=RHOE*UE/GMUE 
IF(L-4)146, 147,148 

146  TADTE  =  1.  +  PRSQR*((TO-TE)/TE) 

GO  TO  150 

147  TADTE  =  1.+HISQR*(L+((PR2MI6-1.)/1600.)*DELTRE)*((TO-TE)/TE) 
GOTO  150 
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148  TADTE  =  1.  +  PRQBRT*((TO-TE)/TE) 

150TAD=TADTE*TE 
GO  TO  (154,155, 160),INDTW 

154  TW(N)=TWALL 
GOTO  160 

155  TW(N)=TAD 
160TWTE=TW(N)/TE 

DUEDS=(AE*(T0-((GAMMA-1.)/2.)*TE*(EME(N)**2))*DMDS(N))/T0 
DPDS=0.0-RHOE*UE*DUEDS 
lF(L-3)  170,180,180 
170  CALL  CHLOE 
175  CALL  LAM  IT  E 
GOTO  190 
180  CALL  TRATUR 
IF(L.GE.4)GOTO190 
L=4 

GO  TO  300 

190DTHDS=CFOV2-THETA*(PMDS(N)*(H+2.-EME(N)**2)*TETO)/EME(N)) 

1T=IT+1 

IF(IT.GT.  100)  THEN 
WRITE(M91) 

191  FORMAT!  1X,'PR0GRAM  DID  NOT  COMPLETE  RUN;  PROGRAM  REQUIRES’, 

1  THREE  OR  MC«E  TEMPERATURES  FOR  THE  DISTRIBUTION  IN  ORDER', 

2  TO  COMPLETE  RUN') 

STOP 

END  IF 

IF  (N.LE.MIN)  GO  TO  200 

225THETA=THETA2+((OLDDTH+DTHDS)*(S(N)-S(N-l)))/2. 
THTCOR=THBAR-THETA 
IF(ABS  (THTCOR/THETA)-.005)200,200,226 
226  THBAR=THETA 
227IF(L-3)175,180,180 
200  IF(L-3)240,250,250 

240  HA=  (CP/(PR**.6))*RHOE*UE*CFOV2*(S(^T  (((TE+216.)/(TW(N)+216.))* 

ISQRT  (TWTE)))/(1.-A1*(ABS  {ENBAR))**B1) 

GO  TO  260 

250  HA=(0.27477951*POVPO(N)*PO*EME(N)/S(^T  (TE))*CFOV2 
260  DHEAT=HA*(TAD-TW(N)) 

IF(N.EQ.MIN)  GO  TO  265 
265  TAUWAL=CFOV2*RHOE*(UE**2) 

DELTA=H*THETA 

DELTAS(N)=DELTA 

CALL  OUT(DELIN,THEIN,DELSIN) 

bktyer(N)  =  DELIN 

dispth(N)  =  DELSIN 

IF(N.EQ.1)G0T0288 

QSUM=QSUM+(DHE  AT+DHL)/2.  *(S(N)-S(N- 1 )) 

288  DHL=I»IEAT 
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WRITE(26,289)  QSUM 

289  FORMAT(15X,E15.6) 
IF(IM)MO.LE.2)GO  TO  1642 

290  CALL  IPSO 

1642  OLDDTH=DTHDS 

1643  THBAR=THETA 

1644  THETA2=THETA 
IF(L.EQ.3)GOTO180 

300  CONTINUE 


N=MAX 

IF(LAP.EQ.l)GOTO390 
IF(LAP.EQ.2)GOTO410 
390  WRITE(26,400) 

400  FORMAT(lX,19Xy///,55X,’*  WALL  RESULTS  *7/,9X,'N’,8X, 
l'X(INCHES)',6X,'DELSTAR(INCHES)’,3X,'YCORE+DELSTAR’,9X, 
2'MWALLM2X,T)ELTAY’,9X,YCORE+DELTAY'y/) 

425  DO  426 17=MIN,MAX 
YSAV(I7)=0.0 

426  CONTINUE 
GO  TO  430 

410  WRITE(26,420) 

420  FC®MAT(lX,19Xy///,60X,’*  CENTERLINE  RESULTS  ♦7/,9X,'N’,8X, 
l'X(INCHES)’,6X,T)ELSTAR(INCHES)’,4X,'0.0+DELSTAR',  1 IX, 

2'M(CL)',  1  lX,'DELTAr,  12X,'0.0+DELTAYy/) 

430  DO  450  IA=MIN,MAX 
X(IA)=X(IA)*12. 

YYY(IA)=YY(IA)*12. 

YY(IA)=(YY(IA)+DELTAS(IA))*12. 

DELTAS(IA)=DELTAS(IA)*  12. 

DELY(IA)={2.*YYY(IA)*DELTAS(IA)+(B-2.*DELTAS(IA))*DELTAS(IA))/B 

YYY(IA)=YYY(IA)+DELY(IA) 

YC2DLY(1A)=YSAV(IA)+2*DELY(IA) 

YSAV(IA)=YSAV(IA)+YY(IA) 

450  CONTINUE 

WRITE(26,440)(IA,X(IA)4>ELTAS(IA),YY(IA),EME(IA)T)ELY(IA), 

lYYYaA),IA=MIN,MAX) 

440  FORMAT(5X,I5,6E18.6) 

C  OuQiiit  to ’visdata'; 

C  1.  Point 
C  2.x 

C  3.  Wall  Mach# 

C  4.  Displacement  Thickness  (sidewall  included) 

C  5.  Y 

C  6.  boundaiy  layer  thidcness 
C  7.  dispacement  thickness  (no  sidewall) 

C  8.  static  to  stagnation  pressure  ratio 
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WRITE(20,441)(IAA,X(IAA),EME(IAA),DELY(IAA),YYY(IAA), 

>blayer(IAA),dispth(IAA),POVPO(IAA),IAA=MIN,MAX) 

441  FORMATa5,7E18.6) 

C  write  the  last  Y  value  to  the  screen  for  iteration  on  exit  dimension 
write(*,*)  'Exit  Half  Height:  ',YYY(MAX) 


1F(INDWC.EQ.3.  AND.LAP.EQ.  1)  GO  TO  10 
1F(INDWC.NE.3)  GO  TO  600 
490  WRrrE(26,500) 

500  FC81MAT(1X,19X,////,45X,'*  WALL  AND  CENTERLINE  RESULTS  COMBINED 
l//,39X,'N’,9X,’X(INCHES)',8X,'YCORE+(2)DELSTAR',4X,'YCORE+(2)', 
2DELTAY’y/) 

WRITE(26,510)(I6^(I6),YSAV(I6),YC2DLY(I6),I6=MIN>IAX) 

510FORMAT{35X,I5,5X,E15.6,5X,E15.6,5X,EI5.6) 

600  IF(XINC.EQ.0.0)  GO  TO  9 
WRITE(26,630)(FMT(I),I=1, 10) 

630  FORMAT(lX,10A8y/,30X,’CONTOUR  FOR  FLAT  PLATE', //,T25,'N’, 
1T42,'X,T62,Y',//) 

S(1)=0.0 
DO  599  1=2,500 
MINC=I-1 
S(I)=S(I-1)+XINC 
IF(S(I).GT.X(MAX))  GO  TO  489 
599  CONTINUE 
489  MINX=MIN+1 
DO620I=MIN,MAX 
YS(I)=YSAV(I) 

IF(INDWC.NE.3)YS(I)=YY(I) 

620  CONTINUE 

CALL  SETXEQ(S,MINX,X,YS,MINC) 

WRITE(26,610XLSa),YS(I),I=2,MINC) 

610  FORMAT(20X,I5,2F20.4) 

WR1TE(26,631XFMT(I),I=1,10) 

631  FORMAT{1X,10A8,//,30X,'CONTOUR  FOR  TAPERED  PLATE',//,T25,'N', 
1T42,'X',T62,'Y’,//) 

D0615I=2,MINC 

YS(I)=YS(I)+0.021+3.5777E-03*S(I) 

615  CONTINUE 

WRrrE(26,610XLS(I),YS(I)4=2>!INC) 

GO  TO  9 
699  return 
END 


C 

C  END  MAIN  PROGRAM 
C 


SUBROUTINE  RESTOR 
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IMPLICIT  DOUBLE  PRECISION  (A-H,  0-Z) 

CHARACTER*8T=MT 

DIMENSION  X(1000),YY(1000),EME(1000),HALFA(I6),XI(16),XILN(I6), 

ITW(1000),S(  1000),POVPO(  1000), DMDS{  1000), FMT(  10), 

2DELY(1000),YYY(1000) 

COMMON  CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA,DELTRE,DELTIH,DHEAT,DTHDS 
l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 
2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 
3GAMMA,OMEGA,WATE,CP,PR,GMUO,SW,Al,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 
4TADTE,TWTE,QUAY,TETO,UE,GMUE,HA,DPDS,DL,XINC,X(1000),YY(1000), 
5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 
6DMDS(1000),FMT(10),ITT.,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 
7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

1910  CFOV2  =0 

1911  CFOV2L=0. 

1912  CFOV2T=0. 

1913  DELRAT=0. 

1914  DELTA  =0. 

1915  DELTRE=0. 

1916  DELTTH=0. 

1917DHEAT=0. 

1918  DTHDS  =0. 

1919DUEDS  =0. 

1920  EN  =0. 

1921ENBAR=0. 

1922  ENTURB=0. 

1923  H  =0. 

1924  HINC  =0. 

1925  OLDDTH=0. 

1927  QUAY  =0. 

1928  REL  =0. 

1929  RETH  =0. 

1930  RETHTR=0. 

1931  RHOE  =0. 

1932  TAUWAL=0. 

1933THBAR=0. 

1934  THETA2=0. 

1935  THOVDL=0. 

1936  TLTE  =0. 

1937  ULUE  =1.0E-4 

1938  IT  =0 

1939  L  =0 

1945  N  =0 
MIN=1 

60D061IA=1,1000 
61  YY(IA)=0. 

1946  RETURN 
END 
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SUBROUTINE  IN 

C  SUBROUTINE  IN  READS  INPUT  FROM  char6  AND  KEYBOARD  INPUT 
IMPLICIT  DOUBLE  PRECISION  (A-H,  O-Z) 

INTEGER  COUNT, COUNTl,ERROR,INVALD 

CHARACTER*8,  FMT 

REALB 

CHARACTER*l,INRSP,INCON,INOUT,INANS,INYN,INDIR 

CHARACTER*2,INCHG 

DIMENSION  XXX(1(K)),TWW(100),YYS(600),EMES(600),YS(600),EMS(600), 

1X(1000),YY(1000),EME(1000),HALFA(16),XI(16),XILN(16),TW(1000), 

2S(1000),POVPO(1000),DMDS(1000),FMT(10),DELY(1000),YYY(1000), 

>cnd(10) 

COMMON  CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA,DELTREJDELTra,DHEAT,DTHDS 

LDUEDS,EN,ENBAR,ENTURB,H,HINC,0LDDTH,REL,RETH,RETHTR,RH0E,THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,0MEGA,WATE,CP,PR,GMU0,SW,A1,BLA2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUETLM)PDSJ)L,XINC,X(1000),YY(1000), 

5EME(IOOO),HALFA(16),XI(16),XILN(16),TW(1000),S(IOOO),POVPO(IOOO), 

6DMDS(l()00),FMT(10),n',L,N,LINES,KOUNTXAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,Mm,INDINP,INDOUT,ITMES,INDPRG,B 


9LAP  =  LAPH-1 


IF(LAP.EQ.2)goto850 

IF  (TTMES  .EQ.  1)  GO  TO  14 
GO  TO  71 
C 

C  INPUTS  FROM  ISENTROPIC  CORE  DATA  GENERATED  BY  PROGRAM  chart 
C 

14  rrMES=2 

C  READ(17,15)(FMT(I),I=1,10) 

C  15  FC»MAT(10A8) 

READ(17,20)  MAX,YTH,YEXIT,XT,XEXIT 
20  FC«MAT(I5,4E20.7) 

READ(17.25)(X(I),YS(I),EMS(I),YYS(I),EMES(I),I=LMAX) 

25  FORMAT(5E20.7) 

71  IF  (INDWC  EQ.  3)  THEN 
C  G0T029 

END  IF 

CRead  from  iiqnit  file  (first  10  variables  are  dummies) 

C  do  90  iii  =  1,  10 
C  write(*,*)  cnd(iii) 

C  90  continue 

read(*,*)  INDMO 
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read(*,*)  INDTW 
read(*,*)  INDTR 
read(*,*)  INDWC 
read(*,*)  TRCON 
reacK*,*)  THZERO 
read(*,*)  PO 
reatK*,*)  TO 
read(*,*)  TWALL 
read(*,*)  XTEND 
read(*,*)  DL 
read(**)B 
read(*,*)  GAMMA 
read(*,*)  OMEGA 
read(*,*)  WATE 
reatK*,*)  CP 
read(*,*)  PR 


c  INDWC  =  2 
c  INDMO  =  2 
c  INDTW=1 
c  INDTR  =  1 


IF  (ENDWC  EQ.  3)  THEN 
GO  TO  224 
END  IF 
224  COUNT=0 

IF  (INDMO  .EQ.  '3')  THEN 
ERRC«=0 

IF  (INDTR  .EQ.  T)  THEN 
231  WRITE(*,235) 

235  FORMAT! lXy////,'INPUT  REYNOLDS  NUMBER  FOR  TRANSITION', 

1  /,5X,'(*****REYNOLDS  NUMBER  BASED  ON  MOMENTUM  THICKNESS’ 

2  'OT  BOUNDARY  LAYER*****)*) 

c  READ(*,240,IOSTAT=ERROR)  TRCON 

c  240  FCayV!AT(EI0.3) 

IF  (ERROR  .GT.  0)  THEN 
GO  TO  231 
END  IF 

ELSE  IF  (INDTR  EQ.  '2*)  THEN 
241  WRITE(*,245) 

245  FC»MAT(1X,//,'INPUT  TRANSITION  DISTANCE  FRCM  THE' 

1  'THROAT  IN  FEET) 

c  READ(*  250,IOSTAT=ERROR)  TRCON 

c  250  FORMAT(E10.3) 

IF  (ERROR  .GT.  0)  THEN 
GO  TO  241 
END  IF 
END  IF 
END  IF 
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c  THZERO=. 00001 
c  PO=115. 
c  TO  =  520. 
c  TWALL  =  520. 

c  XTEND  =  20. 
c  DL  =  .0625 
c  B  =  3.2 
c  GAMMA  =1.4 
c  OMEGA  =  0.76 
c  WATE  =  28.97 
c  CP  =  0.24 
c  PR  =  0.72 

IF(XTEND.LE.X(MAX))  GO  TO  640 

006451=1,600 

NT=I+MAX 

IF(NT.EQ.600)  GO  TO  650 

X(NT)=X(NT-1)+DL 

YS(NT)=YS(MAX) 

EMS(NT)=EMS(MAX) 

YYS(NT)=YYS(MAX) 

EMES(NT)=EMES(MAX) 

IF(X(NT).GE.XTEND)  GO  TO  650 

645  CONTINUE 

650  MAX=NT 

640  GO  TO  (710,710,655),  INDTW 
ERROR=0 

655  WRITE(*,660) 

660  F(miAT(lX,///,'INDICATE  THE  NUMBER  OF  TEMPERATURE  POINTS  TO  BE', 
r  ENTERED’,/,'THREE  OR  MORE  POINTS  ARE  REQUIRED  OR  PROGRAM  WILL', 
2'  TERMINATE  THE  DATA  OUTPUT  PRIC«  TO  COMPLETION^ 
READ(*,665,IOSTAT=ERROR)  NUM 

665  FORMAT(I5) 

IF  (ERROR  EQ.  0)  THEN 
GO  TO  655 
END  IF 

DO670I4=l,NUM 

ERROR^K) 

666  WRITEC»,675)  INPUT  THE  "X"  LOCATION  FOR  POINT  NUMBER  ',14, 
('RELATIVE  TO  THE  THROAT  IN  INCHES' 

675  FC«RMAT(lXy/,A40,I5y,A32) 

READ(*,680,IOSTAT=ERROR)XXX(I4) 

680F(»MAT(F10.4) 

IF  (ERROR  .EQ.  0)  THEN 
GO  TO  666 
END  IF 
ERROR=0 

681  WRrrE(*,685)  'INPUT  TEMPERATURE  IN  DEGREES  R  FOR  POINT  NUMBER', 
114 

685  F(miAT(lX,//,A47,I5) 

READ(*,690,IOSTAT=ERROR)  TWW(I4) 

690  FC«MAT(F10.4) 
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IF  (ERROR  EQ.  0)  THEN 
GO  TO  681 
END  IF 

670  CONTINUE 
K=1 

D0695  J=1>IAX 

700  IF(X(J).LT.XXX(K+1))  GO  TO  705 
K=K+1 
GO  TO  700 

705  TW(J)=TWW(K)+  (X(J)-XXX(K))/(XXX(K+1)-XXX(K))*(TWW(K+1)-TWW(K)) 
695  CONTINUE 

710  IF(INDWC.EQ.l)  GO  TO  715 
IF(LAP.EQ.1)G0T0  725 
715  LAP=2 
DO  720 1=1, MAX 
EME(I)=EMESa) 

YY(I)=YYS(I) 

720  CONTINUE 
GO  TO  735 
725  LAP=1 
DO  730 11=1,MAX 
EMEai)=EMS(Il) 

YY(I1)=YS(I1) 

730  CONTINUE 

735  WRITE(26,740)(FMTa),I=l,10) 

740  FORMAT(1X,20X,10A8,////) 

WRnE(26,745)INDINP,INDI«G,INDMO,INDTW,INDTR,INDWC,INDCF,INDOUT, 

lTRCON,THZERO,PO,TO,TWALL,XTEND,DL,GAMMA,OMEGA, 

2WATE,CP,PR,XINC 

745  FC»MAT(1X  ,20Xy///,30X,’****  INPUT  DATA 
I'INDINP  =’,I5,/,32X,’INDPRG  =’,15,//, 

115X,'CARD  r,12X,’INDMO=’,I5, 

2/,33X,'INDTW  =',I5,/,33X,’INDTR  =’,I5,/,33X,’INDWC  =',I5,/, 

233X,'INDCF  =',I5,/,32X,'INDOUT  =*,15//, 

3 15X,’CARD  2’,12X,'TRCON  =’,E15.6,/,32X,'THZERO  =',E15.6, 

4/,36X,'PO  ='315.6y,36X,TO  =’JE15.6y,33X,'TWALL  =',E15.6, 

6/,33X,’XTEND  =',E15.6,/,36X,'DL  =',E15.6, 

8//,15X,’CARD  3',12X,'GAMMA  =’,E15.6y,33X, 

5'OMEGA  =',E15.6,/,34X,'WATE  =',E15.6,/,36X,'CP  =',E15.6, 

7/,36X,'PR  =',E15.6y,34X,'XINC  =’315.6) 

PO=PO*144. 

IF  (INDTW3Q.3)  GO  TO  750 
GO  TO  755 

750  WRITE(26,760)  NUM 

760  FORMAT(lX,/,15X,’CARD  4',14X,’NUM  =’,I5) 

D0765J1=1,NUM 

NUMB=Jl+4 

WRITE  (26,770)NUMB,XXX(J1),TWW(J1) 

770  FORMAT(lXy,15X,’CARD’,I3,13X,’XXX  =’,E15.6,/,35X,’TWW  =',E15.6) 

765  CONTINUE 
755  IF(LAP.EQ.2)  GO  TO  775 
WRITE(26,780) 
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780  FORMAT(1X,20X,////,52X,'*  WALL  DATA  *’,//, 
136X,'X(IN)’,  16X,'Y(IN)',  lOXIVI',//) 

GO  TO  785 
775  WRITE(26,790) 

790  FORMAT(1X,20X,////,50X,'*  CENTERLINE  DATA  ♦',//, 
1 36X,'X(IN)',  16X,'Y(IN)',  1 6X,’M',//) 

785  WRITE(26,795)(X(L),YY(L),EME(L)J.=1,MAX) 

795  FORMAT(25X,3E20.6) 

DO  800  I1=LMAX 
X(I1)=X(I1)/12.0 
YY(I1)=YY(I1)/12.0 
800  CONTINUE 
850  RETURN 
END 


C  SUBROUTINE  DATA  COMPUTES  DM/DS 
SUBROUTINE  DATA 

IMPLICIT  DOUBLE  DECISION  (A-H,  O-Z) 

CHARACTER*8,  FMT 

DIMENSION  X(1000),YY(I000)3ME(I000),HALFA(16)^(16),XILN(I6), 
ITW(1000),S(1000),POVPO(I000),DMDS(1000),FMT(10), 

2DELY(100O),YYY(I0O0) 

COMMON  CFOV2,CFOV2L,CFOV2TT>ELRAT,DELTA,DELTRE,DELTmDHEATT)THDS 

LDUEDS,EN,ENBAR,ENTURB,aHINC,OLDDTH,REL,RETH,RETHTR,RHOE, THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,0MEGA,WATE,CP,PR,GMU0,SW,A1,BLA2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TAiyrE,TWTE,QUAY,TETO,UE,GMUETIA,DPDST>L,XINC,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS{1000),FMT(10),ITT^J^a,INES4COUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

IF(LAP.EQ.2)G0T015 

S(1)=X(1) 

IK)  10  I=2JVIAX 

S(I)=S(I-l)+SQRT((X(I)-X(I-l))**2+(YY(I)-YYa-l))**2) 

10  CONTINUE 
GOT021 
15DO20I=lJVIAX 
S(I)=X(I) 

20  CONTINUE 

21  DO  101  f=lJMAX 

50  FORMAT(20X,I5,3E15.6) 

IF(J.EQ.l)GOT091 
IF(J.GE.MAX)G0T0  92 
90DMDS(J)=(EME(J+1)-EME(J-1))/(S(J+1)-S(J-1)) 

GO  TO  100 

91  DMDS(J)=(EME(J+1)-EME(J))/(S(J+1)-S(J)) 

GO  TO  100 

92DMDS(J)=(EME(J).EME(J-1))/(S(J)-S(J-1)) 
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100  IF(DMDS(J).LT.0.0)  DMDS(J)=0.0 

101  CONTINUE 
RETURN 
END 

SUBROUTINE  CHLOE 

IMPLICIT  DOUBLE  PRECISION  (A-H,  O-Z) 

CHARACTER*8,  FMT 

DIMENSION  X(1000),YY(I000),EME(1000),HALFA(16),XI(16),X1LN(16), 

1TW(  1000),S(  1000),POVPO(  IO0O),DMDS(10OO),FMT(  10), 

2DELY(1000),YYY(1000) 

COMMON  CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA4)ELTREJDELTTH,DHEAT,DTHDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE, THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,OMEGA,WATE,CP,PR,GMUO,SW,Al,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAT>PDS,DL,XINC,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(1000),FMT(10),ITT.,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

1110  SW=TW(N)/TO-l. 

nil  A1=50.71*((ABS  (SW))**0.182)-51.8 

1112  B1=1.51-0.722*((ABS  (SW))**0.625) 

1113  A2={(7.776*SW+16. 125)*SW+7. 151)*SW-2.363 

1 1 14  B2=((0.328*SW-K).0.34)*SW-0. 174)*SW-K).73 

1115  C2=2.6*(SW+1.0) 

1116  A3=1.28-1.106*((ABS  (SW))**0.964) 

1117  B3=0.903-0.088*((ABS  (SW))**4.533) 

1118  GNUE=GMUE/RHOE 

1119  RETURN 
END 

SUBROUTINE  LAM  IT  E 

IMPLICIT  DOUBLE  PRECISION  (A-H,  O-Z) 

CHARACTER*8,  FMT 

DIMENSION  X(1000),YY(1000),EME(1000)TIALFA(16),XI(16),XILN(16), 

1TW(  1000),S(  1000),POVPO( 1000),DMDS( 1000),FMT(  10), 

2DELY(1000),YYY(1000) 

COMMON  CFOV2,CFOV2L,CFOV2T,DELRAT,DELTAJDELTRET>ELTrH,DHEAT,DTHDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA, 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMA,(M^GA,WATE,CP,PR,GMU0,SW,A1,B1,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAJ)PDS,DL,XINC,X(1000),YY(1000), 

5EME(1000)3ALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS{1()00)34T(10),ITJL,NXINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

1210  ENBAR=((THETA**2)*DUEDS)/(GNUE*TETO) 

1211  H1NC=A2*(ENBAR**B2)+C2 

1212  H=HINC/TETOKTO-TE)/TE 
EN=ENBAR 

1213  EL=A3*(ENBAR**B3)+0.22 
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1214  RETH=REL*THETA 

1215  CF0V2=EL/RETH 
CFOV2L=CFOV2 
DDOT=0. 

IF  (ENBAR+.3)  10,15,15 
10  D5=-.3 

DDOTNI>=-28.613546-((14.046635*SW+62.02 103 1)*SW 

$+75.901060)+SW 

DDOT=DDOTND*(ENBAR+.3) 

GO  TO  16 
15  D5=ENBAR 

16DOT=7.9160948+(((30.38170*D5+59.418345*SW+82.319725)*D5+ 

l(52.310133*SW+112.21677)*SW+65.130652)*D5+((-14.046635*SW 

2-30.634951)*SW-24.61395)*SW-8.2910568)*D5-K(( 

3..34832207*SW-0.99506674)*SW-.94367191)*SW+2.254166)*SW 

DOT=DOT+DDar 

THOVDL=l./(DOT+(TOa^-l.)*(HINC+l.)) 

DELRAT=H*THOVDL 

1216  RETURN 
END 

SUBROUTINE  TRATUR 

IMPLICIT  DOUBLE  PRECISION  (A-H,  O-Z) 

CHARACTER*8,  FMT 

DIMENSION  X(1000),YY(I000),EME(1000),HALFA(16),XI(16),XILN{16), 
lTW(1000),S(1000),POVPO(I000),DMDS(1000),FMT(10), 

2DELY(1000),YYY(  1000) 

COMMON  CFOV2,CFOV2L,CFOV2T,DELRAT,DELTA,DELTRE,DELTTH,DHEATT)THDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE,THETA 

2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 

3GAMMAOMEGAWATE,CP,PR,GMUO,SW,Al,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TAiyrE,TWTE,QUAY,TETO,UE,GMUE,HADPDS4>L,XINC,X{1000),YY(1000), 

5EME(1000)TIALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(1000),FMr(10),IT,L,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,ITMES,INDPRG 

1310  RETH=REL*THETA 
GOTO(1311,311),INDCF 

311  ENTURB=0.85*LOG(RETH)-1.29 
GOTO  1312 

1311  ENTURB=.89030368*LOG(RETH)-1.65 

1312  IF(L-4)  1315,1315,1313 

1313  EN=ENTURB 

1314  GOTO  1317 

1315  DELTRE=RETH-RETirrR 

1316EN=((5.25E-3H1.9E-6)*DELTRE)*DELTRE+1.25 

1317  A=1.-TADTE 

1318  B=TADTE-TWTE 
1319POWR=EN 

1320  DO  13311=1,2 

1321  SUM=0. 

1322  DO  1324 1=1,16 
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1323  GIZMOHALFA(I)*(EXP  (XILN(I)*POWR))/((A*XI(I)+B)*XI(I)+TWTE) 

1324  SUM=SUM+GIZMO 

1325  IF(J-1)  1328,1328,1331 

1328  GADGET=EN*SUM 

1329  DELRAT=1.-GADGET 

1330  POWR=EN+l. 

1331  CONTINUE 

1332  THOVDL=GADGET-EN*SUM 

1333  H=DELRAT/THOVDL 

1334  DO  1336 1=1,2 

1335TLTE=1.+.448*(GAMMA-1.)*(EME(N)**2)*(1.-(ULUE**2))+(TWTE-TADTE)* 
1  (l.-ULUE) 

1336ULUE={20*EN*THOVDL*(TLTE**(1.+OMEGA))/RETH)**(1./(EN+1.)) 

GO  TO  (1337,337), INDCF 

337  CF0V2=  002205*TETO**0.5*(TWTE/TADTE)**0.345/RETH**0.  1 
GOTO  1338 

1337CFOV2=((20.*ENTURB)**((1.-ENTURB)/(1.+ENTURB)))*((THOVDL/RETH) 

1  **(2./(ENTURB+  1  .)))*(TLTE**((  1  .+2.*0MEGA-ENTURB)/(ENTURB+1  .))) 
1338IF(L-4)  1339,1342,1343 

1339  QUAY=(CF0V2-CF0V2L)*(RETH**2) 

1340  GO  TO  1343 

1342  CFOV2=CFOV2-QUAY/(RETH**2) 

1343  RETURN 
END 


SUBROUTINE  OUT(DELIN,THEINJDELSIN) 

IMPLICIT  DOUBLE  PRECISION  (A-H,  O-Z) 

CHARACTER*8,  FMT 

DIMENSION  X(1000),YY(1000),EME(1000)41ALFA(16),XI(16),XILN(16), 
1TW(1000),S(1000),POVPO(1000),DMDS(1000),FMT(10), 

2DELY(1000),YYY(1000) 

COMMON  CFOV2,CFOV2L,CFOV2T4>ELRAT,DELTA,DELTRE,DELTnLDHEAT4>rHDS 

l,DUEDS,EN,ENBAR,ENTURB,H,HINC,OLDDTH,REL,RETH,RETHTR,RHOE, THETA, 

2TAUWAL,THBAR,THETA2,TH0VDL,TLTE,ULUE,TRC0N,THZER04»0,T0,TWALL, 

3GAMMA,0MEGA,WATE,CP,PR,GMU0,SW,A1,B1,A2,B2,C2,A3,B3,GNUE,TE,TAD, 

4TADTE,TWTE,QUAY,TETO,UE,GMUE,HAT)PDSJ>L,XE4C,X(1000),YY(1000), 

5EME(1000),HALFA(16),XI(16),XILN(16),TW(1000),S(1000),POVPO(1000), 

6DMDS(1000)34T(10),ITT.,Na.INES4COUNT,LAP,NN,INDCF,INDMO,INDMU, 

7INDTW,INDTR,INDWC,MAX,MIN,INDINP,INDOUT,rrMES,INDPRG 


XC(m=X(N)*12. 

SCOR=S(N)*12. 

YCOR=YY(N)*12. 

BCLAUS=THETA/TAUWAL*DPDS 

THEIN=THETA*12. 

DELSIN=DELTA*12. 

DELIN=THEIN/THOVDL 

TWTAD=TW(N)/TAD 

TWTO=TW(N)/TO 
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TADTOTAD/TO 

CF=CFOV2*2. 

IF(N.GT.MIN)  GOTO  12 
WRITE(26,4) 

4  F0RMAT(1X,19X,////,56X,'***  OUTPUT  CODE  ***'Jlf) 

WRITE(26,5) 

5  FORMAT(20X,'X(IN)M0X,'S(IN)M0X,'Y(IN)M2X,'M',  lOX, 

1  'REL(  1/FT)’,8X,’RETH',  1  lX,'PE/PO’,///) 

WRITE(26,6) 

6FORMAT(17X,TJE(FT/SEC)',4X,'MUE(PSEC/FT2)',lX,'RHC8E(PSEC2/FT4)’, 

15X,'TE(R)',  10X,'TW(R)',9X,'TAD(R)',  10X,TE/TO',///) 

WRITE(26,7) 

7  FORMAT(18X,T)ELTA{IN)',6X,’THETA(IN)',6X,DELSTAR(IN)',9X,'H',  1 IX 

i;tw/to',  iox,'tw/tad',  iox;tad/to',///) 

WRITE(26,8) 

8FORMAT{17X,T>PDS(P/FT2)’,4X,'DMDS(l/FT)’,7X,’DUDS(l/SEC)’,6X, 
l'DTHDS',6X,'TAUWAL(P/FT2)',7X,'CF,  1 1X,'BETATH',///) 

WRITE(26,9) 

9  FC»MAT(16X,'Q(BTU/FT2/SEC)',  1X,’HA(BTU/FT2SECR)’,8X,'N’,///) 

12  IF  (L-4)13,18,22 

13  WRITE(26,15)N,IT 

15  FCWlMATIlXyAlSX,!^)!^!  NO.M4,4X,TAMINAR',5X,I3,lX, 

ITTERATIONS’) 

GO  TO  30 

18  WRlTE(26,20)N,n’ 

20  F(»MAT(lXy/,15X,’POINT  NO.M4,4X,TRANSmON’,5X,13,lX, 

ITTERATIONS') 

GO  TO  30 

22  WRrrE(26,25)N,IT 

25  F(»MAT(lXy/,15X,’P01NT  NO.',I4,4X,TURBULENT,5X,13,lX, 

ITTERATIONS') 

30  WRrrE(26,35)XCOR,SCOR,YCQR,EME(N)4lELTlETHPOVPO(N),UE,GMUETlHOE, 
lTE,TW(N),TAD,TETO,DELIN,THEIN,DELSIN,H,TWTO,TWTAD,TADTO,DPDS, 
1DMDS(N)4)UEDS,DTHDS,TAUWAL,CF,BCLAUS,DHEAT,HA^ 

35  FORMAT(15X,7E15.6) 

IT=0 

RETURN 

END 

SUBROUTINE  IPSO 

IMHJCIT  DOUBLE  PRECISION  (A-H,  O-Z) 

CHARACTER’»8JFMT 

DIMENSIC»1X(1000),YY(1000)3EME(1000)T1ALFA(16)^(16),XILN(16), 

lTW(1000),S(1000),POVPO(1000),DMDS(1000),FMr(I0), 

2DELY(1000),YYY(1000) 

COMMON  CFOV2,CFOV2L,CFOV2TT)ELRATDELTA,DELTRE,DELTTItDHEAT,DTHDS 
1,DUEDS,EN,ENBAR,ENTURB,H,HINC,0LDDTH,REL,RETH,RETHTR,RH0E, THETA, 
2TAUWAL,THBAR,THETA2,THOVDL,TLTE,ULUE,TRCON,THZERO,PO,TO,TWALL, 
3GAMMA,OMEGA,WATE,CP,PR,GMUO,SW,AI,Bl,A2,B2,C2,A3,B3,GNUE,TE,TAD, 
4TAiyrE,TWTE,QUAY,TETO,UE,GMUETIAT)PDS,DL,XINC,X(1000),YY(1000), 
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5EME(  1000), HALF  A(16),XI(  16),XILN(16),TW(  1000),  S(1000),POVPO(  1000), 
6DMDS(1000),FMT(10),IT,L,N,LINES,KOUNT,LAP,NN,INDCF,INDMO,INDMU, 
7INDTW,IhroTR,INDWC,MAX,Mm,INDINP,INlX)UT,ITMES,lNDPRG 
1610 IT=0 

GO  TO  (1614,1614, 1624, 1624, 1647, 1647),L 

1614  L=2 

IF  (INDTR.EQ.2)  GOTO  1616 

1615  IF(TRCON-RETH)  1618,1618,1642 

1616  IF(TRCON-X(N))  1618,1618,1642 
1618  L=3 

1620RETHTR=RETH 

1621  ULUE=1.0E-4 

1622  CFOV2LCFOV2 

1623  GO  TO  1642 

1624  L=4 

IF( 1600.-DELTRE) 1647, 1647, 1642 
1647  L=5 
1642  RETURN 
END 

The  output  file  from  the  method  of  characteristics  and  boimdary  layer  code  contained  the 
following  informaticHi;  (1)  the  point  alcsig  the  wall,  (2)  the  x  coordinate  of  the  wall  shape,  (3)  the 
wall  Mach  number,  (4)  the  displacement  thickness  with  si(te  wall  growth  included,  (5)  the  y 
coordinate  of  the  wall  shape,  (6)  the  boundary  layer  thickness,  (7)  the  displacement  thickness 
without  side  wall  growth  included  and  (8)  the  static  to  stagnation  pressure  ratio. 

The  coordinate  system  and  nomoiclature  are  shown  in  Figure  21. 


Figure  21.  Nozzle  Shape  Coordinate  System  and  Nomenclature 


The  shapes  produced  by  this  code  were  based  ot  a  specified  laigth  of  25  inches.  This  length  was 
measured  from  the  throat  to  the  exit  alcMig  a  line  perpendicular  to  the  exit  plane.  With  this 
dimansiOT  and  the  exit  height  constant,  the  laigths  of  each  curve  were  differait.  The  goal  of  this 
design  was  to  produce  a  mechanism  made  from  a  constant  length  piece  of  metal.  In  order  to  have 
mathematical  solutions  which  reflected  this  goal,  the  curves  had  to  be  constant  in  laigth  and  the 
horizontal  position  of  the  throat  free  to  move.  To  satisfy  this  c<mditi<m,  ninth  order  polynomials 
were  used  to  model  each  shape.  By  holding  the  nozzle  ®ut  point  fixed  and  varying  the  throat 
position  alcaig  a  line  parallel  to  the  nozzle  caiterline,  the  curves  were  modified  so  that  they  were  all 
equal  in  curve  l^gfli. 

B.  THROAT  TRANSITION  POLYNOMIAL 

The  additicn  of  displacCTient  thickness  to  the  inviscid  sh^e  produced  a  non-zero  slope  at 
the  throat.  To  correct  this  discrepancy,  a  sevaith  order  polynomial  was  used  to  produce  a 
continuous  faring  between  the  throat  coidition  and  the  first  point  of  the  method  of  characteristics 
solution.  Ccsitinuity  in  slqje  was  assured  by  msuring  equality  in  the  sieves  of  curvature  at  the 
boundaries  of  the  transition  polynomial.  The  fisUowing  nomoiclature  was  used  in  die  develq)ment 
of  the  transitiem  polynomial: 

X(  -  horizontal  coordinate  of  throat 

xj  -  horizOTtal  coordinate  of  first  point  in  method  of  characteristics  solution 
y^  -  vertical  coordinate  of  throat 

yj  -  vertical  coordinate  of  first  point  in  the  method  of  characteristics  soluticm 
The  general  fi>rm  of  a  sevendi  order  polynomial  was  assumed: 

y  =  Ax'  +  Bx"  +  Cx'  -H  Dx'  +  Ex'  -h  Fx'  +  Gx  +  H  (1 8) 
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The  following  values  in  additioi  to  the  spatial  coordinates  listed  above  were  known  &om  the 
method  of  characteristics  soluticm  and  the  throat  condition  and  were  applied  as  boundary 
omditicais; 


-  slope  at  the  throat 
dx 


dx 


-  slq)e  at  the  first  point  in  the  method  of  characteristics  soluticm 


d  y.  u  u 

— -  curvature  at  the  throat 
dx' 


dx' 

dx' 


-  curvature  at  die  first  point  in  the  method  of  characteristics  solution 


-  slope  of  curvature  at  the  throat 


dx' 


slope  of  curvature  at  he  first  point  in  the  method  of  characteristics  solutioi 


A  matrix  equaticai  was  assembled  to  solve  for  the  coefiBcioits  of  the  polynomial. 
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(19) 
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The  slqje  of  curvature  at  the  throat  was  assumed  to  ccMiform  with  the  traid  of  the  method  of 
characteristics  solution.  The  polynomial  remained  mcmotonic  due  to  the  small  ratio  of  the  range  of 
X  to  the  y  values. 

C.  SUBSONIC  SECTION 

The  subswiic  section  was  a  somevdiat  arbitrary  shape.  TTie  amstramts  included, 
continuity  in  curvature  at  the  throat,  zero  slope  at  the  aitrance  point  and  monotcwiicity  across  the 
range.  Because  of  the  ratio  of  x  to  y  values  involved,  polynomials  of  higji  enough  order  to  satisfy 
the  boundary  axiditims  did  not  remain  moootonic.  A  parameterized  series  of  curves  were  used  to 
achieve  the  subscxiic  shape  (VeAoff,  1995). 

The  axes  were  transformed  so  that  the  range  of  coordinates  alcmg  the  curves  scaled 
between  zero  and  one.  This  required 

(20) 

and 

f(^)=y^  (21) 

Ye-y. 

Two  parameterized  expmentials  were  used  to  describe  the  coordinates  of  the  curves,  namely 

^  =  1-6-*"  (22) 

and 

f(^)  =  e-*‘*'-’^*’  (23) 

The  following  entrance  conditicms  were  known; 

x^  -  horizontal  coordinate  of  nozzle  entrance 
yg  -  vertical  coordinate  of  nozzle  oitrance 
dy 

-  slope  at  the  nozzle  aitrance  (zero) 
dx 
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The  spatial  and  slqje  constraints  were  satisfied  by  the  parameterization  and  the  following 
transformed  boundary  conditicHis  applied  to  find  the  unknown  constants  a]  and  32'. 


d^^  dx^  (ye-Yt) 

d^f(0)^dV.  (x.-xj^ 

d^'  dx'  (ye-y.) 

The  constants  aj  and  32  were  given  by 


(24) 


(25) 


a,  = 


_  dV,  (x.-xj^ 


’  dx^  (ye-y.)  2 


(26) 


and 


^2  = 


dVt  (X.-Xe)^ 

dx^  (ye-y.) 


b"  +  6a,b 


(27) 


where  b  was  the  constant  in  the  exp<»aitial  that  described  ^ .  The  constant  b  was  used  as  a 
'prettying  factor'  to  control  the  shape  of  the  subsaiic  curve. 


D.  SHAPE  DETERMEHATION  USING  MATLAB™  CODE 

The  mathematical  developmoit  presaited  here  was  coded  in  a  series  MATLAB™  script 
files.  The  program  also  determined  the  coordinates  of  the  jack-mounting  points  on  the  curves 
based  on  a  specified  curve  distance.  Calculaticms  were  performed  to  determine  the  jack  Imgth 
required  to  adiieve  a  specific  shape. 

MATLAB  scr^  files  used  in  die  nozzle  shape  determination  are  hsted  below; 


%Program  nozzles.m 
%Teny  Enunert 
%Last  modification  10  Mar  95 
% 

%Used  to  analyze  output  data  of  Method  of  Characteristics 
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%and  Viscous  Boundary  Layer  Codes  obtained  from  the  U.S. 
%Naval  Ordnance  Laboratory.  Input  files  for  this  code 
%must  be  in  ASCII  text  format,  oriented  in  columns. 
%Specilic  information  required  is: 

%  No2zle  contour  in  x(streamwise  direction  along 
%  centerline(inches))  and  y(perpendicular  distance 

%  from  centerline  to  nozzle  waU(inches)). 

%  Boimdary  Layer  data  in  x(streamwise  direction  along 
%  centerline(inches))  and  t(thickness  of  boundary 

%  layer(inches)). 

% 

%Ninth  order  polynomials  are  derived  from  the  input  data 
%as  representations  of  the  supersonic  section  of  the  nozzle. 
%Because  of  the  Method  of  Characteristics  (MOC)  solution 
%begins  at  some  finite  distance  downstream  of  the  throat, 
%a  transition  polynomial  is  derived  as  a  faring  between 
%the  throat  condition(as  determined  isentropically  from 
%known  exit  conditions  and  coinciding  with  inputs  to  MOC 
%code)  and  the  first  point  of  the  MOC  solution. 

%A  parameterized  exponential  function  is  used  to  describe 
%the  subsonic  section  (from  the  nozzle  entrance  to  the 
%throat. 

0/„ - 


0/„ - 

%Specify  program  run  (qrtions:  1  -  invokes,  0  -  ignores 

0/„ - 


clear 

clock  irtvoke  =  0;  internal  clock  time  at  program 

%start  and  end 

makepoly_inv(rite  =  0;  %to  run  program  makepoly.m;  reads  input 
%files  and  finds  polynomials.  Saves 
%solutions  to  potyspotmat.  If  not 
%invoked,  program  looks  for  existing 
?(^lyspot.niat  file.  Becuase  of  run- 
%time,  this  option  stops  program  after 
^^lyspot.mat  is  created 


compare_invoke  =  (>;  %c(Hnpare  actual  data  to  polynomials 
closexy  =  0;  %looks  at  every  tenth  set  of  actual 
%data 


slope_curve_inv  =  0;  %takes  derivatives  of  contour  data 
plot  slope  =  0;  %to  arrive  at  slope  and  curvatiure 
plot_curve  =  0;  %solutions 


fix_len_inv  =  0; 
fix_plot_in=0; 


%find  length  of  specific  contour  and 
%use  that  length  to  force  determination 
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%of  all  other  contours.  If  not  invoked 
%program  looks  for  existing  specspot.mat 
%file. 

jack  track  inv  =0;  %takes  series  of  curves  based  on  one 
plot_track  =  0;  %fixed  length  curve  and  determines  path 
%of  specified  points  along  curve  length 
%(s).  If  not  invoked,  program  looks  for 
%specspol.mat  file. 

slope  curvef  inv  =  1 ;  %takes  derivatives  of  contour  data 
plot_slopef  =  0;  %to  arrive  at  slope  and  curvature 
plot_curvef  =  0;  %solutions 

throat  to  super  =  1 ;  ^^lynomial  to  fit  between  throat 
%and  first  point  of  method  of 
%charateristics  solution. 

%must  make  up  for  positive 
%slq)e  created  by  displacement 
%thickness  addition,  ensuring 
%slope  at  throat  is  zero. 

exponetial_ss  =  1 ;  %determines  shape  of  subsonic 
%section  based  on  parameterized 
%e?qponential  functions 

jackjength  =  0;  %find  jack  lengths  for  specified 

%jack  mount  point.  Specify  the 
%center  of  jack  pivot  point  in  this 
%code  and  the  code  will  return  the 
%necessaiy  jack  length  between  the 
%pivot  point  and  the  jack  mount 
%eyelet  center  for  each  shape 


num_points  =  250; 

if  clodrinvoke 
clock 
end 

if  makepoly_invoke 

%must  qtecify  order  of  polynimial  fit  to  use 
%(in  this  case  10) 

%aiid  nundier  of  contours  contained  in  the  input 
%files  (in  this  case  61) 

%in  the  file  makepoly.m 
makepoly 

%once  run,  polyspotmat  contains  contour,  U^er, 

%order(10)  and  muncurve(61) 

disp('Control  C  and  restart  program  with  makepoly  invdce  =  0;"); 
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pause 


else 

load  poly  spot 
end 

if  compareinvoke 

%load  selected  actual  data  as  a  basis  for 
%comparision  of  polynomials 

load  125ml40;load  125ml50;load  125ml60;load  125ml70;load  125ml80;load  125ml90;load  125m200 
%generate  vectors  based  on  polynomials  for 
plotting 

X  =  lin:q)ace(0,25,10);yl40  =  polyval(contoiir(l,:),x);yl50  =  polyval(contour(ll,;),x);yl60  = 
polyval(contour(21,;),x);yl70  =  polyval(contour(31,:),x);yl80  =  polyval(contour(41,:),x);yl90  = 
po^al(contour(51,:),x);y200  =  polj^al(contour(61,:),x); 

%plot  polynomials  and  actual  data  for 
%comparison 
if  closexy 

subidot(3,l,l); 

end 

plot(x,yl40,'*',125ml40<:.2),125ml40(:,5),x,yl50,’*’,125ml50(:,2),125ml50(:,5),x,yl60,'*',125ml60(:,2),12 

5ml60(;,5),x,yl70,'*M25ml70(:,2),125ml70(:,5),x,yl80,’*M25ml80(:,2),125ml80(:,5),x,yl90,’*M25ml9 

0(:,2),125ml90(:,5),x,y200,’*M25m200(;,2),125m200(:,5)); 

axis([-.  1,4,1  •5,2.5]);grid 
end 

if  slope_corve_inv 

%find  the  slope  and  curvature  of  the  contom 
contourslope  =  zeros(numcurve,order); 
contour_curve  =  zeros{mimcurve,or<ler); 
curve_slope  =  zeros(numcurve,order); 

contour_sl<^  =  dydx(contour); 
contour_curve  =  <:fydx(contour_slope); 
curve_slope  =  dydx(contour_curve); 

if  plot_slope 

XX  =  linspace(0,25, 100); 

lrfot(xx,polyval(cont(Mir_slope(l,:),xx),xx,polyval(contour_slope(ll,:),xx),xx,polyval(contour_slope(21,:), 

xx),xx,polyval(contour_slope(31,:),xx),xx,polyval(contour_slope(41,:),xx),xx,polyval(contour_slope(51,:), 

xx),xx,polyval(cojitour_slope(61,:),xx)); 

end 

ifplot_cuive 

XX  =  linspace(0,25,100); 

plot(xx,polyval(contour_curve(l,:),xx),xx,polyval(contour_curve(ll,:),xx),xx,polyval(contour_curve(21,:), 

xx),xx,polyval(contour_curve(31,:),xx),xx,polyval(contour_curve(41,:),xx),xx,polyval(contour_curve(51,:) 

,xx),xx,polyval(contour_curve(61,:),xx)); 

end 

end 
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%find  the  tenths  of  the  curves 
%  curvestart  =  0; 

%  curve_end  =  25; 

%  contourlength  =  lenfind(contour,num j»mts,curve_start,curve_end) 

if  fixleninv 

%find  length  of  Mach  2.0  contour  then  develope  shapes  for 
%all  other  curves  based  on  that  length, 
chosen  Mach  =  61;  %equates  to  Mach  2  contour 
curvestart  =  0; 
curve_end  =  25; 

contourM20_length  =  lenfind(contour(chosen_Mach,;),num_pomts,curve_stait,curve_end); 
[horz_dim,fixed_contoiu-]  =  conforce(contour,contourM20_length,niunjpoints,curve_start,curve_end); 

%save  contours  in  specspot.niat 
out  =  savespec(horz_dim,fixed_contour); 
else 

load  specspot 
end 

if  fixjplot_in 

%take  a  lode  at  curves 

pIot{hoiz_dim(l,:),fixed_contoui(l,:),'k',horz_dini(ll,:),fixed_contour(ll,:),hoiz_dim(21,:),fixed_contour 

(21,:),horz_dim(31,:),fixed_contour(31,:),horz_dim(41,:),fixed_contour(41,:),horz_dun(51,:),fixed_contou 

r(51,:),horz_dim(61,:),fixed_contour(61,;),'k'); 

grid;title(Tixed  Length  Contours  (based  on  M=2.0  shape)'); 
ylabelCY  (inches)');xlabel('X  (inches)'); 
text(-t.5,2.4,'M=1.4  >');text(-4.5,l.6,'M=2.0  >’); 
axis([-.05,.01,1.5,2.51); 
end 

if  slope_curvef_iiiv 

contourf  =  zeros(numcurve, order); 
contourslopef  =  zeros(nuincurve,oider); 
contourcurvef  =  zeros(numcurve, order); 
curve_slopef  =  zeros(numcurve,oider); 

%  for  r  =  Itnumcurve 

%  contoiiif(r,;)  =  polyfit(hoiz_dim(r,:),fixed_contour(r,:),order-l); 

%  end 

contoor_slopef  =  <fydx(contour); 
contouranvef  =  <fydx(contour_slopef); 
curve_slopef  =  dydx(contour_curvef); 

if  plot_slopef 

XX  =  linspace(-.  1,25,100); 

ldot(xx,polyval(contour_sl<q)ef(l,;),xx),'k*,xx,polyval(contour_sl<q3ef(ll,:),xx),xx,polyval(contour_slopef(2 
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1 ,  :),xx),xx,polyval(contour_slopef(3 1 , ;  ),xx),xx,polyval(contour_slopef(4 1 , :  ),xx),xx,polyval(contour_slopef 
(5 1 ,  ;),xx),xx,polyval(contour_sIopef(6 1 ,  ;),xx),’k'); 
grid;titie('Slopes  of  Fixed  Length  Contours'); 
ylabel('dY/dX');xlabel('X  (inches)'); 
text(6,. 022,1^4=1.4  >');text(5.5,.085,'M=2.0  >'); 

end 

if  plot_curvef 

XX  =  linspace(-.  1,25, 100); 

plot(xx,polyval(contour_curvef(l,;),xx),'k',xx,polyval(contour_curvef(ll,;),xx),xx,polyval(contour_cuivef( 

21,:),xx),xx,polyval(contour_curvef(31,:),xx),xx,polyval(contour_curvef(41,:),xx),xx,polyval(contoiu-_ciuv 

ef(51,:),xx),xx,polyval(contour_curvef(61,:),xx),'k'); 

grid;title('Curvatures  of  Fixed  Length  Contours'); 
ylabel('d''2Y/dX''2');xlabel(’X  (inches)'); 
text(l,.001,'M=1.4  >’);text(6.5,.008,'<  M=2.0'); 

end 

end 

if  throattosiqjer 
Tradcurve  =  95; 

ttp_order  =  8;  %throat  transition  polynomial  order 

ttj^s  =  50;  %number  of  points  used  in  ttp 

ttpxx  =  zeros(numcurve,ttppts); 

ttpyy  =  zeros(niuncurve,ttpf3ts); 

ttpoly  =  zeros(numcurve,ttp_order); 

xxss  =  zeros(numcurve,num_points); 

yyss_slope  =  zeros(numcurve,num_points); 

yyss_curve  =  zeros(numcurve,num_points); 

yyss_slope_curve  =  zeros(niuncurve,num joints); 

grab_bc  =  zeros(numcurve,2); 
slope_curve_throat  =  zeros(numcurve,l); 
ttpyy_slope  =  zeros(nunicurve,ttppts); 
ttpyy_curve  =  zeros(numcurve,ttRJts); 
ttpyy_slope_curve  =  zeros(nunicurve,ttppts); 

forr=  Lniuncurve 

xt  =  horz_dun(r,l);  %x  at  throat 
yt  =  isoTheight(r);  %y  at  throat 
Sxt  =  0;  %slope  at  throat 

Cxt  =  1/Trad_curve;  %curvature  at  throat 
SCxt  =  -.005;  %slope  of  curvature  at  throat 

^(4his  value  had  to  be  imposed 
%to  ensure  a  satisfactory  solution 
%in  the  subsonic  section. 

%set  to  a  small  negative  value 
%within  an  order  of  maginitude 
%of  third  derivatives  of  contours. 

%because  the  subsonic  section 
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%is  exponential  in  nature,  change 
%in  sign  could  not  be  allowed 

xi  =  first_x(r)-  (horz_dini(numcurve,l)  -  horz_dim(r,l)); 

%x  at  first  point  on  contour 
yi  =  polyval(contour(r,:),xi); 

%y  at  first  point  on  contour 
Sxi  =  polyval(contour_slopef(r,;),xi); 

%slope  at  first  point  on  contour 
Cxi  =  polyval(contour_curvef(r,;),xi); 

%curvature  at  first  point  on  contour 
SCxi  =  polyval(curve_slopef(r,:),xi); 

%slope  of  curvature  at  first  point  on  contoiu 
tranpoly  =  findttp(xL,yt,Sxt,Cxt,SCxt,xi,yi,Sxi,Cxi,SCxi); 
ttpoly(r,;)  =  tranpoly'; 
ttpxx(r,:)  =  linspace(xt,xi,ttppts); 
ttpyy(r,:)  =  polyval(tranpoly,ttpxx(r,:)); 
xxss(r,;)  =  linspace(xi,25,num_points); 
yyss(r,:)  =  polyval(contour(r,:),xxss(r,:)); 
yyss_slope(r,:)  =  polyval(contour_slopef(r,:),xxss(r,:)); 
yyss_curve(r,:)  =  polyval(contour_curvef(r,:),xxss(r,:)); 
yyss_sl<^_curve(r,:)  =  polyval(curve_slopef(r,:),xxss(r,:)); 

end 

%  plot(ttpxx(61,;),ttpyy(61,:),xxss(61,:),yyss(61,:),ttpxx(l,:),ttpyy(l,:),xxss(l,:),yyss(l,:)); 

%  axis([-.l,.5,0,3]); 


ttp_slope  =  (fydx(ttpoly); 
ttpcurve  =  (fydx(ttp_slope); 
ttp_slope_curve  =  cfydx(ttp_cuive); 


for  r  =  l:numcurve 
xt  =  hoiz_dim(r,l); 

grab_bc(r,:)  =  [polyval(ttp_curve(r,:),xt)  polyval(ttp_slope_curve(r,:),xt)]; 
slope_curve_throat(r)  =  polyval(ttp_slope_curve(r,;),xt); 
ttpyy_sl(^r,:)  =  polyvaI{ttp_slq;^r,:),ttpxx(r,:)); 
ttpyy_curve(r,:)  =  polyval(ttp_curve(r,:),ttpxx(r,:)); 
ttRyy_sl<^_curve(r,:)  =  po^ai(ttp_slope_curve{r,;),ttiKx(r,:)); 


end 


% 

ldot(ttpxx(61,:),t^(61,;),xxss(61,:),yyss(61,:),ttpxx(51,:),ttpyy(51,:),xxss(51,;),yyss(51,:),ttpxx(41,:),ttpy 

y(41,:),xxss(41,;),yyss(41,:),ttp»c(31,;),ttpyy(31,:),xxss(31,:),yyss(31,:),ttpxx(21,:),ttpyy(21,:),xxss(21,:),yy 

ss(21,:),ttpxx(ll,:),t4jyy(ll,;),xxss{ll,:),yyss(ll,;),ttpxx(l,;),ttpyy(l,:),xxss(l,:),yyss(l,:)); 

%  axis{[-.l,.5,1.4,2.6]); 

% 

plot(ttpxx(61,:),ttpyy_slope(61,;),xxss(61,:),yyss_sl(^61,;),ttpxx(5l,:),tQw_slope(51,;),xxss(51,:),yyss_s 

lope(51,:),ttpxx(41,:),ttpyy_slope(41,:),xxss(41,;),yyss_slope(41,:),ttpxx(31,:),ttpyy_slope(31,:),xxss(31,;), 

yyss_sIope(31,:),ttpxx(21,:),ttpryy_slope{21,:),xxss(21,:),yyss_slope(21,:),ttpxx(ll,:),ttpyy_slope(ll,;),xxss 

(ll,;),yyss_slope(ll,;),ttpxx(l,:),ttpyy_slope(l,;),xxss(l,:),yyss_slope(l,:)); 


91 


%  axis(I-.l,.4,-.001,.015]); 

% 

plot(ttpxx(61,:),ttpyy_curve(61,:),xxss(61,:),yyss_curve(61,:),ttpxx(51,:),ttpyy_curve(51,:),xxss(51,:),yyss_ 
curve(51,;),ttpxx(41,:),ttpyy_curve(41,:),xxss(41,:),yyss_curve(41,:),ttpxx(31,:),ttpyy_curve(31,:),xxss(31,; 
),yyss_curve(31,;),ttpxx(21,;),ttpyy_curve(21,:),xxss(21,:),yyss_ciirve(21,;),ttpxx(ll,:),ttpyy_curve(ll,;),x 
xss(l  l,;),yyss_curve(l  I,:),ttpxx(l,:),ttpyy_curve(l,:),xxss(l,:),yyss_curve(l,:)); 

%  axis([-.l,.  1,0,021); 

% 

plot(ttpxx(61 ,  :),ttpyy_slope_curve(6 1 , ;  ),xxss(61 ,  :),yyss_slope_curve(6 1,  :),ttpxx(5 1 ,  ;),ttpyy_slope_curve(5 

l,:),xxss(51,;),yyss_slope_curve(51,:),ttpxx(41,:),ttpyy_slope_curve(41,;),xxss(41,:),yyss_slope_curve(41,: 

),ttpxx(3l,:),ttpyy_slope_curve(31,:),xxss(31,;),yyss_slope_curve(31,:),ttpxx(21,;),ttpyy_slope_curve(21,;), 

xxss(21,;),yyss_slope_curve(21,:),ttpxx(ll,:),ttpyy_slope_curve(ll,:),xxss(ll,:),yyss_slope_curve(ll,:),ttp 

xx(l,;),ttRyy_slope_curve(l,:),xxss(l,;),yyss_slope_curve(l,:)); 

%  axis([-.l,.4,-2,2]); 

end 

if  exponetial_ss 

numSpts  =  150;  %number  of  points  used  in  the 

%subsonic  section 


sub_ejq»_sX  =  zen)s(numcurve,munSpts); 
sub_expo_sY  =  zeros(nunicurve,nuinSpts); 
sub_expo_sYp  =  zeros(numcurve,numSpts); 
sub_expo_sYpp  =  zeros(numcurve,nuniSpts); 
sub_expo_sYR)p  =  zeros(numcurve,numSpts); 


b  =  .7;  ^i^jrettying  ^or 


xi  =  -20; 
yi  =  5; 

Sxi  =  0; 

Sxt  =  0; 
Cxt  =  1/95; 


%inlet  X  dimension 
%inlet  y  dimension 
%inlet  slope 
%throat  slqpe 
%throat  curvature 


already_done  =  1; 
if  already_done 
for  r  =  1  :numcurve 
%r=31 

xt  =  ttpxx(r,l); 
yt  =  ttpyy(r,l); 

SCxt  =  dope_curve_thToat(r); 

[x,y,yp,ypp,yppp]  =  exposhp(xi,xt,yi,Sxi,yt,Sxt,Cxt,SCxt,b,numSpts); 
sub_e3q»_sX(r,:)  =  x; 
sub_e3q»_sY(r,:)  =  y; 
sub_e?qx)_sYp(r,;)  =  yp; 
sub_ejq)o_sYpp(r,:)  =ypp; 
sub_expo_sYi^r,;)  =  yppp; 
end 
end 


plot  all  curves  ♦♦**♦♦* 
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%plot(sub_expo_sX(r, ;  ),sub_expo_sY  (r, ttpxx(r, :  ),ttpyy(r,  ;)),xxss(r, :  ),yyss(r, : )); 

%  subplot{4J,2); 

% 

plot(sub_ejq»_sX(61,:),sub_ejipo_sY(61,;),'k',ttpxx(61,;),ttpyy(61,;),'k',xxss(61,:),yyss(61,:),'k',sub_e?q)o_ 

sX(51,:),sub_expo_sY(51,:),'k',ttpxx(51,;),ttpyy(51,:),'k',xxss(51,:),yyss(51,:),'k',sub_expo_sX(41,:),sub_ex 

po_sY(41,:),'k',ttpxx(41,:),ttpyy(41,;),'k',xxss(41,:),yyss(4I,:),'k',sub_expo_sX(31,:),sub_expo_sY(31,:),'k', 

ttpxx(31,;),ttpyy(31,:),'k',xxss(31,:),yyss(31,:),'k',sub_e55X)_sX(21,:),sub_expo_sY(21,:),'k',ttpxx(21,:),ttpy 

y(21,;),'k',xxss(21,;),yyss(21,;),'k',sub_ejqx)_sX(ll,;),sub_expo_sY(ll,:),'k',ttpxx(ll,:),ttpyy(ll,:),'k',xxss( 

ll,;),yyss(ll,:),'k',sub_expo_sX(l,:),sub_expo_sY(l,;),'k',ttpxx(l,:),ttpyy(l,;),'k’,xxss(l,:),yyss(l,:)),'k'; 

%  sul^lot(4,l,2); 

% 

pIot(sub_expo_sX(61,:),sub_expo_sY(61,;),'k',ttpxx(61,:),ttpyy(61,:),'k',xxss(61,:),yyss(61,:),'k',sub_e?q»_ 
sX(41, :),sub_expo_sY(41,:),'k',ttpxx(41,:),ttpyy(41,:),'k',xxss(41,:),yyss(41, sub_expo_sX(31,:),sub_ex 
po_sY(31,:),'k',ttpxx(31,:),ttpyy(31,;),'k’,xxss(31,;),yyss(31,:),'k',sub_expo_sX(21,:),sub_expo_sY(21,;),'k', 
ttpxx(21,:),tti^(21,:),'k',xxss(21,;),yyss(21,:),'k',sub_expo_sX(l,:),sub_expo_sY(l,:),'k',ttpxx(l,:),ttpyy(l, 
:),'k',xxss(l,:),yyss(l,:),’k'); 

plot(sub_expo_sX(61,:),sub_expo_sY(61,:),V,ttpxx(61,:),ttpyy(61,:),'r',xxss(61,:),yyss(61,:),'r',sub_expo_s 

X(31,:),siib_expo_sY(31,:),'r',ttpxx(31,:),ttpyy(31,:),'r',xxss(31,;),yyss(31,:),'r',sub_expo_sX(l,:),sub_expo 

_sY(l,;),'r',ttpxx(l,:),ttRyy(l,:),'r',xxss(l,:),yyss(l,:),’r'); 

%  titieCRange  of  No^e  Shapes'); 

%  ylabelCY  (mches)');xlabel('X  (inches)'); 

%  text(-2.5,1.8,'Mach  2.0');text(-2.5,2.6,'Mach  1.4');text(-2.5,2.2,'Mach  l.T); 

%  axis([-20,25,0,5]);grid 

% 

ldot{sub_ejq»_sX(61,:),sub_expo_sYp(61,:),ttpxx(61,:),tQjyy_slope(61,:),xxss(61,:),yyss_slope(61,:),sub_e 

xpo_sX(5l,;),sub_e;qx)_sYp(51,;),ttpxjd51,:),ttpyy_slope(51,:),xxss(51,;),yyss_slope(51,:),sub_expo_sX(4 

l,;),sub_expo_sYp(41,;),tt{^41,:),ttpyy_slope(41,:),xxss(41,:),yyss_slope{41,:),s^_expo_sX(31,:),sub_e 

xpo_sYp(3  l,;),ttpxx(3  l,:),ttpyy_slope(3  l,:),xxss(3  l,;),yyss_slope(3  l,:),sub_expo_sX(21,:),sub_expo_sYp( 

21,:),ttpxx(21,:),ttpyy_slope(21,:),xxss(21,:),yyss_slope(21,;),sub_e3q»_sX(ll,:),sub_expo_sYp(ll,:),ttpx 

x(l  l,;),ttpyy_slope(l  l,;),xxss(l  l,:),yyss_slope(l  l,:),sub_expo_sX(l,:),sub_expo_sYp(l,:),ttpxx(l,:),ttpyy_ 

sl<^l,:),xxss(l,:),yyss_slope(l,;)); 

% 

f4ot(sub_expo_sX(6I,:),sub_expo_sYp(61,:),ttpxx(61,:),ttpyy_slope(61,:),xxss(61,;),yyss_slope(61,;),SHb_e 
xpo_sX(3  l,:),sub_expo_sYp(3  l,;),ttpxx(3  l,;),ttpyy_slope(3  l,;),xxss(3  l,:),yyss_slope(3  l,:),sub_expo_sX(l, 
:),sub_ejqx>_sYp(l,:),tQjxx(l,:),ttpyy_sl<q)e(l,:),xxss(l,:),yyss_slope(l,:)); 

%  titleCEntire  Nozzle  Slope  Variation(Throat  Detail)'); 

%  ylabel('dY/dX');xlabelCX');grid 
%  axis([-.l,.4,-.0025,.015]); 

%  text(.27,.0095,'Mach  2.0');text(.3 1,.0135,'Mach  1.4’);text(.27,.01 15,'Mach  l.T) 

% 

plot(sub_ej^_^(61,:),sub_e3q»_sYpp(61,:),ttpxx(61,:),ttpyy_ciuve(61,:),xxss(61,;),yyss_curve(61,:),sub 
_e3q»_sX(51,:),subjejq)0_sYpp(51,:),ttpxx(51,:),ttpyy_curve(51,:),xxss(51,;),yyss_curve(51,:),sub_e?qx)_s 
X(41,;),siib_ex|>o_sYpp(41,:),ttpxx(41,;),tQjyy_curve(41,:),xxss(41,:),yyss_curve(41,:),sob_e3q)o_sX(31,:), 
sub_ejq»_sYi^31,;),ttpxx(31,:),ttpyy_cuive(31,:),xxss(31,:),yyss_curve(31,:),siib_expo_sX(21,:),sub_exp 
o_sYp^21,:),ttpxx(21,:),ttpyy_curv^21,:),xxss(21,:),yyss_curve(21,:),sub_ejq)o_sX(ll,:),sub_e3q)o_sYp^ 
1  l,;),ttpxx(l  l,:),ttpyy_curve(l  l,:),xxss(l  l,;),yyss_curve(l  l,:),sub_expo_sX(l,:),sub_expo_sYpp(l,:),t4)xx 
( 1 , :  ),ttpyy_curve(  1 , :  ),xxss(  1 , :  ),yyss_curve(  1 , : )); 

%  titleCEntire  Nozzle  Curvature  Variation(Throat  Detail)');ylabel('d^2Y/dX''2');xlabel('X');grid 
%  axis([l  1,14,-005,0]); 

% 

plot(sub_expo_sX(61,:),sub_e?q»_sYppp(61,:),ttpxx(61,:),ttpyy_slope_curve(61,:),xxss(61,:),yyss_slope_c 
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urve(61,:),sub_expo_sX(51,:),sub_ejq»_sYRjp(51,:),ttpxx(51,;),ttpyy_slope_curve(51,:),xxss(51,:),yyss_sl 

ope_curve(51,:),sub_expo_sX(41,;),sub_expo_sYOT’(41,;),ttpxx(41,:),ttpyy_slope_cwve(41,:),xxss(41,:),y 

yss_slope_cuTve(41,:),sub_e}q»_sX(31,;),sub_ejqx)_sYn3)(31,:),ttpxx(31,:),ttpfyy_slope_curve(31,:),xxss( 

31,;),yyss_slope_curve(3l,:),sub_expo_sX(21,;),sub_ejqx)_sYppp(21,:),ttpxx(21,:),ttpyy_slope_curve(21,:) 

,xxss(21,;),yyss_slope_ciirve(21,:),sub_expo_sX(ll,:),sub_ejqx)_sYH^ll,:),ttpxx(ll,:),ttpyy_slope_curve 

(1  l,:Xxxss(l  l,:),yyss_slope_cuA'e(l  l,;),sub_expo_sX(l,:),sub_expo_sYppp(l,:),ttpxx(l,:),ttR?y_slope_cur 

ve(l,:),xxss(l,;),yyss_slope_curve(l,;)); 

%  title('Entire  Nozzle  Slope  of  Curvature  Variation(Throat 
Detail)');ylabel(’d^3Y/dX^3');xlabel('X);grid 
%  axis([-.2,.4,-2,1.5]); 

end 

if  jacktrackinv 

%take  curves  based  on  fixed  M=2  contour  and  determine  x,  y 
%coordinates  for  given  distances  along  contour. 

%this  data  should  define  a  polynomial  for  the 
%path  that  a  specific  point  on  the  flex  wall  follows 
%through  shape  changes 
%this  information  will  be  required  for  jack  path. 

XXfoijack  =  [sub_expo_sX  ttpxx  xxss]; 

YYfoijack  =  [sub_expo_sY  ttpyy  yyss]; 

%s_dim  is  measured  from  the  nozzle  exit  back  to  the 
%point  of  interest 

s  dim  =  [7  10  12.75  16  19  22  28.5  31.5]; 

[x_for_s,y_for_s,c_ind]  =  findxy(XXfoijack,YYfoijack,s_dim); 
out  =  savespel(x_for_s,y_for_s,c_ind); 
else 

loadspecspol 

end 

if  plot_track 


plot(x_for_s,y_for_s,ttpxx(:,l),ttpyy(:,l),'k:’,sub_e)q»_sX(61,:),sub_e:q»_sY(61,:),’k',ttpxx(61,:),ttpyy(61, 

:),V,xxss(61,:),yyss(61,:),V,sub_ejq)o_sX(41,;),sub_e3q)o_sY(41,:),V,ttpxx(41,;),ttpyy(41,;),'k',xxss(41,;), 

yyss(41,;),V,sub_expo_sX(31,:),siib_expo_sY(31,:),V,ttpxx(31,;),tqjyy(31,:),V,xxss(31,:),yyss(31,:),'k',su 

b_expo_sX(21,:),sub_expo_sY(21,:),’k',ttpxx(21,:),ttpyy(21,:),'k’,xxss(21,:),yyss(21,:),V,sub_expo_sX(l,:) 

,sub_expo_sY(l,;),'k',ttpxx(l,:),ttpyy(l,:),'k',xxss(l,:),yyss(l,:),'k'); 

grid;title('Paths  of  Jack  Mounting  Locations'); 
ylabelCY  (indies)');xlabel('X  (inches)'); 

%  axis([-20,-15,2.2,2.7]); 


% 

subplot{2,l,l);iiol(x_for_s,y_for_s,horz_dim(L:),fixed_contour(l,:),hoiz_dim(ll,:),fixed_contour(lL:),h 

orz_dim(21,:),fixed_contour(21,:),horz_dim(31,:),fixed_contour(31,:),horz_dim(41,:),fixed_contour(41,:), 

horz_dim(51,:)^ed_contour(51,:),horz_dim(61,:),fixed_contoiir(61,:),horz_dim(:,l)4xed_contour(:,l)); 

% 

subplot(2,l,2);plot(x_for_s,y_for_s,hotz_dim(l,;),fixed_contour(l,:),horz_dim(ll,:),fixed_contour(ll,;),h 

orz_dim(21,:),fixed_contour(21,;),hoi2_dim(31,;),fixed_contour(31,:),hoiz_dim(41,:),fixed_contour(41,:), 

horz_dim(51,:),fixed_contour(51,;),horz_dim(61,:)4ixed_contour(61,;),horz_dim(;,l)4xed_contour(:,l)); 


94 


%  axis([-.05,.01, 15,2.5]); 

end 


ifjacklength 

%thickness  of  flex  plate 

%distance  from  upper  surface  of 
%plate  to  center  of  jack  mount 
%eyelet 

%Jack  pivot  points  Xmount,  Ymount  are  with  respect  to  the 
%throat  coordinates  of  the  Mach  2.0  shape 
Xmount  =  [17.821  14.648  11.872  8.598  5.679  2.760  -2.842  -5.522  0]; 

Ymount  =  [10.750  10.750  10.750  10.750  10.750  10.750  10.750  10.750  10.750  ]; 

[mum,cnum]  =  size(c_ind); 

(]^<bgack  =  zeros(mum,cnum+l); 

Xjack  =  [xfors  ttpxx(:,l)]; 

Yjack  =  [y_for_s  ttpyy(:,l)]; 
slope_bin  =  [sub_expo_sYp  ttpyyslope  yyssslopej; 
column_index  =  [c_ind  ones(r,l)*(length(sub_expo_sX(l,:))+l)]; 
for  r=  l;mum 

(fyd?gack(r,:)  =  slope_bin(r,coluinn_index(r,;)); 
end 

jacklength  =  zeros(mum,cnuni+l); 

Xmount  =  ones(mum,l)*[17.821  14.648  11.872  8.598  5.679  2.760  -2.842  -5.522  0]; 

Ymount  =  ones(mum,l)*[10.750  10.750  10.750  10.750  10.750  10.750  10.750  10.750  10.750  ]; 


t  =  .25; 
d  =  .5; 


ys  =  (Ymount  -  (Yjack  +  (t./cos(atan(dyd!gack)))  +  (d*cos(atan(dyd3gack))))).'^2; 
xs  =  (Xmount  -  (Xjack  -  (d*sin(atan((fy<b^k))))).''2; 
jacklength  =  sqrt(ys  +  xs); 


end 

%detemine  the  difference  in  shape  between  the  Mach  1 .7  curve 
%and  the  Mach  1.4  and  2  curves. 

dely20  =  [sub_e3q)o_sY(61,;)-sub_expo_sY(31,:)  tqjyy(61,:)-ttpyy(31,:)  yyss(61,:)-yyss(31,:)]; 
x20  =  [sub_expo_sX(31,:)  ttpxx(31,;)  xxss(31,:)]; 

delyl4  =  [si*_e3q»_sY(l,:>^jexpo_sY(31,:)  ttpiyy(l,:)-ttpyy(31,:)  yyss(l,:)-yyss(31,:)]; 
xl4  =  [sub_e3q»_sX(31,:)  ttpxx(31,:)  xxss(31,:)]; 

%subplot(3,l,l) 

%xl7  =  linspace(-20,25,50);yl7  =  zeros(l,length(xl7)); 
%plot(xl4,delyl4,'r',x20,dely20,'r',xl7,yl7,'r');grid 
%title('Extrenie  Shape  Divergence  from  Mach  1.7  Contour*); 

%ylabel(Y  (inches)');xlabel('X  (inches)'); 

%text(-5,-.39,'Mach2.0');text(-5,0.03,'Mach  l.T);text(-5,.43,'Mach  1.4'); 
if  clock_invoke 
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clock 

end 


%Prograni  makepoly.m 
%reads  in  ideal  nozzle  data 
%converts  data  to  polynomials 
%saves  polynomials  polyspot.mat 
clear 

numcurve  =  61; 
order  =  10; 

contour  =  zeros(numcurve, order); 
blayer  =  zeros(numcurve, order); 
disidace  =  zeros(numcurve, order); 

Tdisthick  =  zeros(numcurve,l); 
isoTheight  =  zeros(numcurve,l); 
first_x  =  zeros(niimcurve,  1); 

load  125ml40;load  125ml41;load  I25ml42;load  125ml43;load  125ml44;load  125ml45; 
load  125ml46;load  125ml47;load  125ml48;load  125ml49;load  125ml50;load  125ml51 
load  125ml52;load  125ml53;load  125ml54;load  125ml55;load  125ml56;load  125ml57 
load  125ml58;load  125ml59;load  125ml60;load  125ml61;load  125ml62;load  125ml63 
load  125ml64;load  125ml65;load  125ml66;load  125ml67;load  125ml68;load  125ml69 
load  125ml70;load  125ml71;load  125ml72;load  125ml73;load  125ml74;load  125ml75 
load  125ml76;load  125ml77;load  125ml78;load  125ml79;load  125ml80;load  125ml81 
load  125ml82;load  125ml83;load  125ml84;load  125ml85;load  125ml86;load  125ml87 
load  125ml88;load  125ml89;load  125ml90;load  125ml91;load  125ml92;load  125ml93 
load  125ml94;load  125ml95;load  125ml%;load  125ml97;load  125ml98;load  125ml99 
load  125m200 

%find  polynomials  of  disfdacement  thickness 
dispthickinvoke  =  0; 

if  disp_thick_invoke 

displace(l,:)  =  polyfit(125ml40(:,2),125ml40(:,4),order-l); 
displace(2,;)  =  polyfit(125ml41(:,2),125ml41(;,4), order-1); 
dis(^ce(3,:)  =  po^t(125ml42(:,2),125ml42(;,4),order-l); 
displace(4,;)  =  polyfit(125ml43(:,2),125ml43(:,4), order-1); 
displace(5,;)  =  polyfit(125ml44(:,2),125ml44{;,4),order-l); 
displace(6,:)  =  polyfit^5ml45(:,2),125ml45(:,4), order-1); 
displace(7,:)  =  p(^?fit(125ml46(:,2),125ml46(:,4), order-1); 
displace(8,:)  =  pol^t(125ml47(;,2),125ml47(:,4), order- 1); 
disrdace(9,:)  =  polyfit(125ml48{;,2),125ml48(:,4), order-1); 
displace(10,:)  =  polyfit(125ml49(:,2),125ml49(:,4),or<ter-l); 

disfiace(ll,:)  =  polyfit(125ml50(:,2),125ml50(:,4), order-1); 
displace(12,:)  =  polyfit(125ml51(:,2),125ml51(:,4),order-l); 
displace(13,:)  =  polyfit025ml52(;,2),125ml52(;,4),order-l); 
displace(14,;)  =  polyfit(125ml53(:,2),125ml53(:,4),order-l); 
displace(15,:)  =  polyfit(125ml54(;,2),125ml54(:, 4), order-1); 
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displace(16,:)  =  polyfit(125ml55(:,2),125ml55(;,4), order-1); 
displace(17,:)  =  po^t(125ml56(:,2),125ml56(:,4), order-1); 
displace(l8,:)  =  po^t(125ml57(:,2),125ml57(;, 4), order-1); 
displace(l9,:)  =  po^t(125ml58(:,2),125ml58(;,4),order-l); 
displace(20,:)  =  polyfit(125inl59(:,2),125ml59(:, 4), order-1); 

displace(21,;)  =  polyfit(125ml60(:,2),125ml60(:,4),or(fer-l); 
displace(22,:)  =  polyfit(125ml61(:,2),125inl61(:,4),order-l); 
displace(23,:)  =  polyfit(125ml62(:,2),125ml62(;,4), order-1); 
displace(24,:)  =  polyfit025ml63(:,2),125ml63(:,4), order-1); 
displace(25,:)  =  pol^t(125ml64(:,2),125ml64(:,4), order-1); 
displace(26,:)  =  polyfit(125nil65(:,2),125ml65(:,4), order-1); 
displace(27,;)  =  polyfit(125ml66(:,2),125ml66(;,4), order-1); 
displace(28,:)  =  polyfit(125ml67(:,2),125ml67(:,4), order-1); 
displace(29,;)  =  po^t(125ml68(;,2),125ml68(;,4),order-l); 
displace(30,:)  =  polyfit025ml69(:,2),125ml69(:,4),order-l); 

displace(31,;)  =  polyfit(125ml70{:,2),125ml70(:,4), order-1); 
displace(32,:)  =  polyfit(125ml71(:,2),125ml71(;,4), order-1); 
displace(33,:)  =  po^t(125ml72(:,2),125ml72(:,4), order-1); 
displace(34,:)  =  polyfit(125ml73(:,2),125ml73(;,4), order-1); 
displace(35,:)  =  polyfit(125ml74(:,2),125ml74(:,4),order-l); 
displace(36,;)  =  po^t(125inl75(:^),125ml75(:,4),order-l); 
displace(37,;)  =  polyfit(125ml76(:,2),125ml76(:,4),order-l); 
displace(38,;)  =  pol^t(125ml77(:,2),125iiil77(:,4),order-l); 
displace(39,:)  =  polyfit(125ml78(:,2),125ml78(:,4), order-1); 
displace(40,:)  =  polyfit(125ml79(;,2),125ml79(:,4),order-l); 

displace(41,:)  =  polyfit(125ml80(:,2),125ml80(:,4),order-l); 
displace(42,;)  =  polyfit(125ml81(:,2),125ml81(:,4Xorder-l); 
displace(43,:)  =  polyfit(125ml82(:,2),125ml82(:,4),order-l); 
displace{44,:)  =  polyfit(125ml83(:,2),125ml83(:,4),order-l); 
displace(45,;)  =  po^t(125ml84(;,2),125ml84(:,4),order-l); 
displace(46,;)  =  po^t(125inl85(:,2)425ml85(:,4),order-l); 
displace(47,:)  =  polyfit(125ml86(:,2),125ml86(:,4), order-1); 
displace(48,;)  =  polyfit(125ml87(:,2),125ml87(:,4),or(ter-l); 
displace(49,:)  =  polyfit(125ml88(;,2),125ml88(:,4),order-l); 
displace(50,:)  =  po^t(125ml89(:,2),125ml89{:,4),order-l); 

displace(51,;)  =  polyfit(125ml90(:,2),125ml90(:,4),order-l); 
displace(52,:)  =  polyfit(125ml91(;,2),125ml91(:,4),order-l); 
disidace(53,:)  =  potyfit(125iiil92(;,2),125ml92(:,4),order-l); 
displace(54,:)  =  polyfit(125ml93(:,2),125ml93{:,4),order-l); 
displace(55,:)  =  polyfit(125ml94(:,2),125ml94(:,4),order-l); 
displace(56,:)  =  polyfit(125ml95(:,2),125ml95(;,4),order-l); 
displace(57,:)  =  potyfit(125iiil96(:^),125ml96{:,4),order-l); 
displace(58,:)  =  polyfit(125ml97(:,2),125ml97(:,4),order-l); 
displace(59,:)  =  polyfit(125iiil98(:,2),125ml98(:,4),order-l); 
displace(60,;)  =  polyfit(125ml99(:,2),125inl99(:,4),order-l); 

displace(61,:)  =  polyfit(125ni200(:,2),125m200(:,4),order-l); 
end 
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clearinvoke  =  1; 
add_throat_condition  =  1; 
gam  =  1.4; 

TbTt  =  zeros(numcurve,l); 
pl^  =  zeros(numcurve,  I); 

AbAs  =  zeros(numcurve,l); 

M=  1.4:.01:2; 
for  c  =  1  ;length(M) 

TbTt(c)  =  l./(l+(((gam-l)/2).*M(c).^2)); 
pbpt(c)  =  TbTt(c).''(gam/(gam-l)); 

AbAs(c)  =  (l./M(c)).*(  (l+(((gam-l)/2).*M(c).''2))./((gam+l)/2)  ).'^((gam+l)/(2*(gam-l))); 
end 


Tpt  =  0; 

Tx  =  0; 

WallM=l; 

Dispt  =  .00001; 

Blay  =  . 00001; 

MT  =  WallM; 

TbTtT  =  1./(1-K((gam-1)/2).*MT.''2)); 
pbptT  =  TbTtT.*(gam/(gam-l)); 

%extract  isentropic  throat  height 


isoTheight(l)  =  (max(125ml40(:,5))-niax(125ml40(:,4)))/AbAs(l); 
isoTheight(2)  =  (max(125ml41(:,5))-max(125ml41(:,4)))/AbAs(2); 
isoTheight(3)  =  (niax(125ml42C,5))-max(125ml42(:,4)))/AbAs(3); 
isoTheight(4)  =  (max(125ml43(;,5))-max(125ml43(;,4)))/AbAs(4); 
isoTheight(5)  =  (max(125ml44(:,5))-max(125ml44(:,4)))/AbAs(5); 
isoTheight(6)  =  (niax(125ml45(:,5))-niax025ml45(:,4)))/AbAs(6); 
isoTheight(7)  =  (max(125ml46(:,5))-max(125ml46(:,4)))/AbAs(7); 
isoTheight(8)  =  (max(125ml47(;,5))-max(125ml47(:,4)))/AbAs(8); 
isoTheight(9)  =  (max(125ml48(;,5))-maxa25ml48(:,4)))/AbAs(9); 
isoTheight(10)  =  (max(125ml49(:,5))-niax(125ml49(:,4)))/AbAs(10); 


isoTheight(l  1)  =  (max(125ml50(:,5))-max(125ml50(;,4)))/AbAs(l  1); 


isoTheight(12)  =  (ina3dl25ml51(:,5))-max(125ml51(:,4)))/AbAs(12); 
isoTheight(13)  =  (iiiax^5ml52(:,5))-max(125ml52(:,4)))/AbAs(13); 
isoTheight(14)  =  (niax^5ml53(;,5))-max025ml53(:,4)))/AbAs(14); 
isoTheight(15)  =  (iiiax(125ml54(:,5))-max(125ml54(:,4)))/AbAs(15); 
isoTheight(16)  =  (iiiax^5ml55(:,5))-max025ml55(:,4)))/AbAs(16); 
isoTheight(17)  =  (inax^5ml56{:,5))-inax(125ml56(;,4)))/AbAs{17); 
isoTheight(18)  =  (max^5ml57(:,5))-max025ml57(:,4)))/AbAs(18); 
isoTheight(19)  =  (max(125ml58(:,5))-inax(125ml58(:,4)))/AbAs(19); 
isoTheight(20)  =  (max(125ml59(:,5))-max(125ml59(:,4)))/AbAs(20); 
isoTheight(21)  =  (max(125ml60(:,5))-ina3c(125ml60(:,4)))/AbAs(21); 
isoTheight(22)  =  (max(125ml61(;,5))-inax(125ml61(;,4)))/AbAs(22); 
isoTheight(23)  =  (max^5ml62(:,5))-max(125ml62(:,4)))/AbAs(23); 
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isoTheight(24)  =  (niax{125ml63(;,5))-inax(125ml63(;,4)))/AbAs(24); 
isoTheight(25)  =  (inax(125ml64(;,5))-inax(125ml64(:,4)))/AbAs(25); 
isoTheight(26)  =  (!nax(125ml65(:,5))-inax(125ml65(:,4)))/AbAs(26); 
isoTheight(27)  =  (iiiax(125ml66(:,5))-max(125ml66(:,4)))/AbAs(27); 
isoTheight(28)  =  (max(125ml67(:,5))-iiiax(125ml67(:,4)))/AbAs(28); 
isoTheight(29)  =  (maxa25ml68(;,5))-inaxa25ml68(:,4)))/AbAs(29); 
isoTheight(30)  =  (iiiax(125ml69(;,5))-inax(125ml69(:,4)))/AbAs(30); 

isoTheight(31)  =  (max025ml70(:,5))-iiiax(125ml70(:,4)))/AbAs(31); 
isoTheight(32)  =  (niax(125ml71(:,5))-max(I25ml71(:,4)))/AbAs(32); 
isoTheight(33)  =  (max(125ml72(;,5))-max(125ml72(:,4)))/AbAs(33); 
isoTheight(34)  =  (max(125ml73(:,5))-max(125ml73(:,4)))/AbAs(34); 
isoTheight(35)  =  (max(125ml74(:,5))-max^5ml74(:,4)))/AbAs(35); 
isoTheight(36)  =  (iiiax(125ml75(:,5))-inax(125ml75(:,4)))/AbAs(36); 
isoTheight(37)  =  (iiiax(125inl76(:,5))-iiiax(125ml76(;,4)))/AbAs(37); 
isoTheight(38)  =  (iiiax(125ml77(:,5))-max(125ml77(:,4)))/AbAs(38); 
isoTheight(39)  =  (inax(125ml78(:,5))-inaxa25ml78(;,4)))/AbAs(39); 
isoTheight(40)  =  (iiiax(125ml79(:,5))-max(125ml79(:,4)))/AbAs(40); 

isoTheight(41)  =  (iiiax(125ml80(:,5))-inax(125mI80(:,4)))/AbAs(41); 
isoTheight(42)  =  (inax(125ml81(:,5))-niax^5ml81(;,4)))/AbAs(42); 
isoTheight(43)  =  (iiiax(125ml82(:,5))-inax(125ml82(:,4)))/AbAs(43); 
isoTheight(44)  =  (inaxa25ml83(:,5))-inax(125ml83(:,4)))/AbAs(44); 
isoTheight(45)  =  (niax(125ml84(:,5))-inax(125ml84(;,4)))/AbAs(45); 
isoTheight(46)  =  (inax(125ml85(:,5))-inax(125ml85(;,4)))/AbAs(46); 
isoTheight(47)  =  (iiiax(125ml86(:,5))-inax(125ml86(:,4)))/AbAs(47); 
isoTheight(48)  =  (inax(125ml87(:,5))-iiiax(125ml87(:,4)))/AbAs(48); 
isoTheight(49)  =  (iiiax(125ml88(:,5))-iiiax(125ml88(:,4)))/AbAs(49); 
isoTheight(50)  =  (niax(125ml89(:,5))-inax(125ml89(:,4)))/AbAs(50); 

isoTheight(51)  =  (iiiax(125ml90(:,5))-iiiax(125ml90(:,4)))/AbAs(51); 
isoTheight(52)  =  (max(125ml91(:,5))-iiiax(125ml91(:,4)))/AbAs(52); 
isoTheight(53)  =  (niax^5ml92(:,5))-iiiax^5ml92(:,4)))/AbAs(53); 
isoTheight(54)  =  (niax(125ml93(;,5))-inaxa25ml93(:,4)))/AbAs(54); 
isoTheight(55)  =  (inax(125ml94(:,5))-inax(125ml94(:,4)))/AbAs(55); 
isoTheight{56)  =  (iiiax(125ml95(:,5))-i!iax(125ml95(:,4)))/AbAs{56); 
isoTheight(57)  =  (iiiax(125ml96(:,5))-iiiax(125ml%(:,4)))/AbAs(57); 
isoTheight(58)  =  (inax(125ml97(;,5))-inax(125ml97(:,4)))/AbAs(58); 
isoTheight(59)  =  (iiiax(125ml98(:,5))-max(125ml98(:,4)))/AbAs(59); 
isoTheight(60)  =  (niax(125ml99(:,5))-inax(125ml99(:,4)))/AbAs(60); 

isoTheight(61)  =  (inax(125in20(H:,5))-max(125iii200(:,4)))/AbAs(61); 


%extTact  first  x  value  of  real  data 

first_x(l)  =  125ml40(l,2);first_x(2)  =  125ml41(l,2);first_x(3)  =  125inl42(l,2); 
first_x(4)  =  125ml43(l,2);first_x(5)  =  125ml44(l,2);first_x(6)  =  125ml45(l,2); 
first_x(7)  =  125ml46(l,2);first_x(8)  =  125ml47(l,2);first_x(9)  =  125ml48(l,2); 
first_x(10)  =  125ml49(l,2);first_x(ll)  =  125ml50(l,2);first_x(12)  =  125ml51(l,2); 
first_x(13)  =  125ml52(l,2);fiffst_x(14)  =  125ml53(l,2);first_x(15)  =  125ml54(l,2); 
first_x(16)  =  125ml55(l,2);first_x(17)  =  125ml56(l,2);first_x(18)  =  125ml57(l,2); 


99 


first_x(19)  =  125ml  58(1, 2);first_x(20)  =  125ml59(l,2);first_x(21)  =  125ml60(l,2); 
first_x(22)  =  125ml61(l,2);first_x(23)  =  125ml62(l,2);first_x(24)  =  125ml63(l,2); 
first_x(25)  =  125ml64(l,2);first_x(26)  =  I25ml65(l,2);first_x(27)  =  125ml66(l,2); 
first_x(28)  =  125ml67(l,2);first_x(29)  =  125ml68(l,2);first_x(30)  =  125ml69(l,2); 
first_x(31)  =  125ml70(l,2);first_x(32)  =  125ml71(12,2);first_x(33)  =  125ml72(l,2); 
first_x(34)  =  125ml73(l,2);first_x(35)  =  125ml74(l,2);first_x(36)  =  125ml75(l,2); 
first_x(37)  =  125ml76(17,2);first_x(38)  =  125ml77(l,2);first_x(39)  =  125ml78(l,2); 
first_x(40)  =  125ml79(l,2);first_x(41)  =  125ml80(l,2);first_x(42)  =  125ml81(l,2); 
first_x(43)  =  125ml82(l,2)4irst_x(44)  =  125ml83(l,2);first_x(45)  =  125ml84(l,2); 
first_x(46)  =  125ml85(l,2);first_x(47)  =  125ml86(l,2);first_x(48)  =  125ml87(l,2); 
first_x(49)  =  125ml88(l,2);first_x(50)  =  125ml89{l,2);first_x(51)  =  125ml90(l,2); 
first_x(52)  =  125ml91(l,2);first_x(53)  =  125ml92(l,2);first_x(54)  =  125ml93(l,2); 
first_x(55)  =  125ml94(l,2);first_x(56)  =  125ml95(l,2);fiist_x(57)  =  125ml96(l,2); 
first_x(58)  =  125ml97(l,2);first_x(59)  =  125ml98(l,2);first_x(60)  =  125ml99(l,2); 
first_x(61)  =  125m200(l,2); 


if  add_throat_condition 

125ml40  =  [Tpt  Tx  WallM  Dispt  (inax(125ml40(:,5))-max(125ml40(:,4)))/AbAs(l)  Bl^  Dispt 
pbptT;125ml40]; 

125ml41  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml41(;,5)>niax(I25ml41(;,4)))/AbAs(2)  Blay  Dispt 
pbptT;125ml41]; 

125ml42  =  [Tpt  Tx  WallM  Diqjt  (max(125ml42(:,5))-max(125ml42(:,4)))/AbAs(3)  Blay  Dispt 
pbptT;125ml42]; 

125ml43  =  [Tpt  Tx  WallM  Dispt  (max{125ml43(:,5))-max(125ml43(:,4)))/AbAs(4)  Blay  Dispt 
pbptT;125ml43]; 

125ml44  =  [Tpt  Tx  WallM  Dispt  (inax(125ml44(:,5))-inax(125ml44{:,4)))/AbAs(5)  Blay  Dispt 
pt^T;125ml44]; 

125ml45  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml45(:,5))-max(125ml45(:,4)))/AbAs(6)  Blay  Dispt 
pbptT;125ml45]; 

125ml46  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml46{:,5))-max(125ml46(:,4)))/AbAs(7)  Blay  Dispt 
pbptT;125ml46]; 

125ml47  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml47(:,5))-max(125ml47(:,4)))/AbAs{8)  Blay  Dispt 
pbptT;125ml471; 

125ml48  =  [Tpt  Tx  WallM  Dispt  (max(125ml48{:,5))-max(125ml48{:,4)))/AbAs(9)  Blay  Dispt 
pt^>tT;125ml48]; 

125ml49  =  [Tpt  Tx  WallM  Dispt  {inax(125ml49(:,5))-max(125ml49(:,4)))/AbAs(10)  Bl^  Dispt 
pbptT;125ml49]; 

125ml50  =  [Tpt  Tx  WallM  Diqjt  {max(125ml50(:,5))-max(125ml50(:,4)))/AbAs(l  1)  Bl^  Dispt 
pbptT;125ml50]; 

125ml51  =  [Tpt  Tx  WallM  Di^  (inax(125ml51(:,5))-max(125ml51(:,4)))/AbAs{12)  Blay  Dispt 
pbptT;125ml51]; 

125ml52  =  [Tpt  Tx  WallM  Dispt  (inax(125ml52(:,5))-max(125ml52(;,4)))/AbAs(13)  Blay  Dispt 
pbptT;125ml52]; 

125ml53  =  [Tpt  Tx  WallM  Dispt  (inax(125ml53(:,5))-max(125ml53(:,4)))/AbAs(14)  Bl^  Dispt 
pbptT;125ml53]; 

125ml  54  =  [Tpt  Tx  WallM  Dispt  (max(125ml54(;,5)>max(125ml54(:,4)))/AbAs(15)  Blay  Dispt 
pbptT;125ml541; 

125ml55  =  [Tpt  Tx  WallM  Dispt  (max(125ml55(;,5))-max(125ml55(:,4)))/AbAs(16)  Blay  Dispt 
pl:^T;125ml55]; 
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125ml56  =  [Tpt  Tx  WallM  Dispt  (max(125ml56(;,5))-max(125ml56(:,4)))/AbAs(17)  Blay  Dispt 
pbptT;125ml56]; 

125ml57  =  [Tpt  Tx  WallM  Dispt  (max(125mI57(:,5))-max(125ml57(;,4)))/AbAs(18)  Blay  Dispt 
pl^T;125ml57]; 

125ml58  =  [Tpt  Tx  WallM  Dispt  (max(125ml58(:,5))-max(125ml58(:,4)))/AbAs(19)  Blay  Dispt 
pbptT;125ml58]; 

125ml59  =  [Tpt  Tx  WallM  Dispt  (inax(125ml59(:,5))-max(125ml59(:,4)))/AbAs(20)  Blay  Dispt 
pbptT;125ml59]; 

125ml60  =  [Tpt  Tx  WallM  Dispt  (inax(125inl60(;,5))-niax(125ml60(:,4)))/AbAs(21)  Blay  Dispt 
pl^T;125ml60]; 

125ml61  =  [Tpt  Tx  WallM  Dispt  (inax(125ml61(:,5))-niax(125ml61(:,4)))/AbAs(22)  Bl^  Dispt 
pl^T;125ml61]; 

125ml62  =  [Tpt  Tx  WallM  Dispt  (inax(125inl62(:,5))-niax(125ml62(;,4)))/AbAs(23)  Bl^  Dispt 
pl^T;125ml62]; 

125ml63  =  [Tpt  Tx  WallM  Dispt  (max(125ml63(:,5))-niax(125ml63(;,4)))/AbAs(24)  Blay  Dispt 
pl^T;125ml63]; 

125ml64  =  [Tpt  Tx  WallM  Dispt  (inax(125ml64(:,5))-niax(125ml64(:,4)))/AbAs(25)  Bl^  Dispt 
plqrtT;125ml64]; 

125inl65  =  [Tpt  Tx  WallM  Dispt  (inax(125inl65(:,5))-max(125ml65(:,4)))/AbAs(26)  Blay  Dispt 
pl^T;125ml65]; 

125ml66  =  [Tpt  Tx  WallM  Dispt  (inax(125ml66(:,5))-niax(125ml66(:,4)))/AbAs(27)  Bl^  Dispt 
pbptT;125ml66]; 

125ml67  =  [Tpt  Tx  WallM  Dispt  (inax(125ml67(:,5))-niax(125inl67{:,4)))/AbAs(28)  Bfcqf  Dispt 
pl^tT;125ml67]; 

125ml68  =  [Tpt  Tx  WallM  Dispt  (max(125ml68(:,5))-max(125ml68(:,4)))/AbAs(29)  Bl^  Dispt 
pl^T;125ml68]; 

125ml69  =  [Tpt  Tx  WallM  Dispt  (inax(125ml69(:,5))-inax(125inl69(:,4)))/AbAs(30)  Blay  Dispt 
pl^T;125ml69]; 

125ml70  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml70(:,5))-max(125ml70{:,4)))/AbAs(31)  Bl^  Dispt 
pl^tT;125ml70]; 

125ml71  =  [Tpt  Tx  WallM  Dispt  (max(125ml71(:,5))-iiiax(125inl71(:,4)))/AbAs(32)  B%  Dispt 
pl^T;125ml71]; 

125ml72  =  [Tpt  Tx  WallM  Dispt  (inax{125inl72(:,5))-niax(125ml72(:,4)))/AbAs(33)  Bl^  Dispt 
pbptT;125ml72]; 

125ml73  =  [Tpt  Tx  WallM  Dispt  (max(125ml73(;,5))-inax(125ml73(:,4)))/AbAs(34)  Bl^  Dispt 
pl^T;125ml73]; 

125ml74  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml74(;,5))-max(125ml74(:,4)))/AbAs(35)  Bl^  Dispt 
pbptT;125ml74]; 

125ml75  =  [Tpt  Tx  WallM  Dispt  (max(125ml75(:,5))-inax(125ml75(;,4)))/AbAs(36)  Bl^  Dispt 
pl:^T;125ml75]; 

125ml76  =  [Tpt  Tx  WallM  Dispt  (inax(125ml76(:,5))-max(125ml76(:,4)))/AbAs(37)  Blay  Dispt 
pl^T;125ml76]; 

125ml77  =  [Tpt  Tx  WallM  Dispt  (inax(125ml77(:,5))-niax(125ml77(:,4)))/AbAs(38)  Blay  Di^ 
pl^JtT;125inl77]; 

125ml78  =  [Tpt  Tx  WallM  Dispt  (inax(125inl78(:,5))-max(125inl78(:,4)))/AbAs(39)  Bl^  Dispt 
pl^T;125ml78]; 

125ml79  =  [Tpt  Tx  WallM  Dispt  (max(125ml79(:,5))-niax(125inl79(:,4)))/AbAs(40)  Bl^  Dispt 
pbptT;125ml79]; 
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125ml80  =  [Tpt  Tx  WallM  Dispt  (max(125ml80(:,5))-max(125ml80(;,4)))/AbAs(41)  Blay  Dispt 
pl:^T;125ml80]; 

125inl81  =  [Tpt  Tx  WallM  Dispt  (inax(125ml81(:,5))-max(125ml81(;,4)))/AbAs(42)  Blay  Dispt 
I*ptT;125ml81J; 

125ml82  =  [Tpt  Tx  WallM  Dis{rt  (inax(125ml82(:,5))-inax(125ml82(:,4)))/AbAs(43)  Blay  Dispt 
pbptT;125ml82]; 

125ml83  =  [Tpt  Tx  WallM  Disj^  (iiiax(125ml83(:,5))-inax(125ml83(:,4)))/AbAs(44)  Blay  Dispt 
pbptT;125ml83]; 

125ml84  =  [Tpt  Tx  WallM  Dispt  (max(125ml84(:,5))-max(125ml84(;,4)))/AbAs(45)  Blay  Dispt 
pbptT;125ml84]; 

125ml85  =  [Tpt  Tx  WallM  Disi<  (max(125ml85(:,5))-max(125ml85(;,4)))/AbAs(46)  Blay  Dispt 
pbptT;125ml85]; 

125inl86  =  [Tpt  Tx  WallM  Dispt  (max(125ml86{:,5))-inax(125ml86(:,4)))/AbAs(47)  Blay  Dispt 
pbptT;125ml86]; 

125ml87  =  [Tpt  Tx  WallM  Disi*  (niax(125ml87(:,5))-max(125ml87(:,4)))/AbAs(48)  Bl^  Dispt 
pbptT;125ml87]; 

125ml88  =  [Tpt  Tx  WallM  Dispt  (inax(125ml88(;,5))-niax(125ml88(;,4)))/AbAs(49)  Blay  Dispt 
pbptT;125inl881; 

125ml89  =  [Tpt  Tx  WallM  Dispt  (niax(125ml89(:,5))-max(125ml89(;,4)))/AbAs(50)  Bl^  Dispt 
pbptT;125ml89]; 

125ml90  =  [Tpt  Tx  WallM  Dispt  (max(125ml90{:,5))-maxa25ml90(:,4)))/AbAs(51)  Bl^  Dispt 
pbptT;125ml90]; 

125ml91  =  [Tpt  Tx  WallM  Dispt  (inax(125ml91(;,5))-max(125ml91(:,4)))/AbAs(52)  Blay  Dispt 
pbptT;125ml91]; 

12501192  =  [Tpt  Tx  WallM  Dispt  (inax(125ml92(:,5))-max(125ml92(:,4)))/AbAs(53)  Blay  Dispt 
pl^T;125ml92]; 

t25ml93  =  [Tpt  Tx  WallM  Dispt  (inax(125ml93(:,5))-niax(125ml93(:,4)))/AbAs(54)  Blay  Dispt 
pl:^T;125ml93]; 

125ml94  =  [Tpt  Tx  WallM  Dispt  (max(125inl94(:,5))-max(125ml94(:,4)))/AbAs(55)  Bl^  Dispt 
pl:^T;125ml94]; 

125inl95  =  [Tpt  Tx  WallM  Dispt  (inax(125ml95(;,5))-inax(125ml95(:,4)))/AbAs(56)  Blay  Dispt 
plqjtT;125ml95]; 

125ml96  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml%(;,5))-niax(125ml%(;,4)))/AbAs{57)  Blay  Dispt 
pbptT;125ml%]; 

125ml97  =  [Tpt  Tx  WallM  Dispt  (iiiax(125ml97(:,5))-max(125ml97(:,4)))/AbAs<58)  Blay  Dispt 
pbptT;125inl97]; 

125ml9&=  [Tpt  Tx  WallM  Dispt  (iiiax(125ml98(:,5))-inax(125ml98(:,4)))/AbAs(59)  Blay  Dispt 
pbptT;125ml98]; 

125nil99  =  [Tpt  Tx  WallM  Dispt  (inax(125ml99(:,5))-iiiax(125ml99(:,4)))/AbAs(60)  Blay  Dispt 
pl^T;125ml99]; 

125II1200  =  [Tpt  Tx  WallM  Dispt  (inax(125m200(:,5))-niax(125m200(:,4)))/AbAs(61)  Blay  Dispt 

pbptT;125m200]; 

end 


contour(l,:)  =  polyfit(125ml40(:,2),125nil40(:,5),order-l); 
contour(2,:)  =  polyfit(125ml41(:, 2), 125ml41(:,5), order-1); 
contour(3,:)  =  po^t(125ml42{:,2X125ml42(:,5),order-l); 
contour(4,;)  -  polyfit(125ml43(:,2),125ml43(:,5), order-1); 
contour(5,:)  =  polyfit(125ml44(:,2),125ml44(:,5), order-1); 
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contoiir(6,:)  =  polyfit(I25inl45(;,2),125inl45(:,5), order-1); 
contour(7,:)  =  polyfit(125inl46(:,2),125ml46(;, 5), order-1); 
contour(8,:)  =  pol^t(125ml47(:,2),125ml47(:,5),order-l); 
contoiir(9,:)  =  polyfit(125ml48(;,2),125inl48(:,5),order-l); 
contour(10,:)  =  polyfit(125ml49(:,2),125inl49(:,5),order-l); 

contour(ll,:)  =  polyfit(125ml50(:,2),125ml50(:,5),order-l); 
contour!  12,:)  =  polj^t(125ml51(:,2),125ml51(:,5),order-l); 
contour(13,:)  =  polyfit(125ml52(:,2),125ml52(:, 5), order-1); 
contour(14,:)  =  polyfit(125ml53(:,2),125ml53(:,5),order-l); 
contour(15,:)  =  polyfit(125ml54(;,2),125inl54(:,5),order-l); 
contour(16,:)  =  pol)^t(125ml55(:,2),125ml55(:,5),order-l); 
contour(17,:)  =  polyfit(125ml56(:,2),125ml56(:,5),order-l); 
contour(18,:)  =  polyfit(125inl57(:,2),125ml57(:,5),order-l); 
contour(19,;)  =  polyfit025ml58(:,2),125ml58(:,5),order-l); 
contour(20,:)  =  pol^t(125inl59(:,2),125ml59(:,5),order-l); 

contour(21,:)  =  polyfit{125inl60(;,2),125inl60(:,5),order-l); 
contour(22,;)  =  polyfit(125ml61(:,2),125ml61(:,5),order-l); 
contour(23,:)  =  pol^t(125inl62(:,2),125inl62(:,5),order-l); 
contour(24,:)  =  polyfit(125ml63(:,2),125ml63(:,5),order-l); 
contour(25,:)  =  pol^t(125ml64(:,2),125ml64(:,5),or<fcr-l); 
contour(26,:)  =  polyfit(125ml65(:,2),125ml65(:,5),order-l); 
contour(27,:)  =  polyfit(125nil66{:,2),125ml66(:,5),order-l); 
contour(28,:)  =  polyfit(125inl67(:,2),125ml67(:,5),order-l); 
contour(29,:)  =  pol^t^5ml68(:,2),125ml68(:,5),order-l); 
contour(30,:)  =  polyfit025inl69(:,2),125ml69(;,5),order-l); 

contour(31,:)  =  polyfil(125ml70(:,2),125ml70(:,5),order-l); 
contour(32,:)  =  polyfit(125ml71(:,2),125ml71(:,5),order-l); 
contour(33,:)  =  pol}«t(125nil72(:,2),125ml72(:,5),order-l); 
contour(34,:)  =  polyfit(125ml73(:,2),125ml73(:,5),order-l); 
contour(35,:)  =  pol^t(125ml74(:,2),125ml74(:,5),order-l); 
contour(36,:)  =  polyfit(125ml75(:,2),125ml75(:,5),order-l); 
contour(37,;)  =  po^t(125ml76(:,2),125ml76{:,5),order-l); 
contour(38,:)  =  pol^t025ml77(:,2),125ml77(:,5),order-l); 
contour(39,;)  =  polyfit(125ml78(:,2),125inl78(:,5),order-l); 
contour(40,;)  =  polyfitfl25ml79(:,2),125ml79(;,5),order-l); 

contour(41,;)  =  polyfit(125nil80(:,2),125ml80(:,5),order-l); 
contour(42,:)  =  po^t(125inl81(:,2),125ml81(:,5),order-l); 
contour(43,:)  =  polyfit(125inl82(:,2),125ml82(;,S),order-l); 
contour(44,:)  =  polyfit(125ml83(:,2),125ml83(:, 5), order-1); 
contour(45,:)  =  po^t^5ml84(:,2),125ml84(:,3),order-l); 
contour(46,:)  =  polyfit(125nil85(:,2),125ml85(;,5),order-l); 
contour(47,:)  =  poljrfit(125inl86(;,2),125ml86(:,5),order-l); 
contour(48,:)  =  pol^t(125inl87(:,2),125ml87{:,5),order-l); 
contour(49,:)  =  po^t(125ml88(:,2),125inl88(:,5),order-l); 
contour(50,;)  =  polyfitG25ml89(:,2),125ml89(:,5),order-l); 

contour(51,:)  =  polyfit(125ml90(:,2),125inl90(:,5),order-l); 
contour(52,:)  =  polyfit025ml91(:,2),125ml91(:,5),order-l); 
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contour(53,;)  =  polyfit(125nil92(:,2),125ml92(;, 5), order-1); 
contour(54,:)  =  polyfit(125ml93(:,2),125ml93(:,5),order-l); 
contour(55,;)  =  polyfit025ml94(:,2),125inl94(:,5), order-1); 
contour(56,;)  =  polyfit(125ml95(:,2),125ml95(:, 5), order-1); 
contour(57,:)  =  polyfit(125ml96(:, 2), 125inl96{:,5), order-1); 
contour(58,:)  =  pol^t(125ml97(:,2),125ml97(:,5), order-1); 
contour(59,:)  =  polyfit(125tnl98(:,2),125ml98(:,5),order-l); 
contour(60,;)  -  polyfit(125ml99(:,2),125ml99(:,5), order-1); 

contour(61,:)  =  polyfit(125iii200(:,2),125m200(;,5),order-l); 


blayer(l,:)  =  polyfit(125ml40(:,2),125ml40(:,6),order-l); 
blayer(2,:)  =  polyfit(125ml41(:,2),125ml41(:,6),order-l); 
blayer(3,:)  =  polyfit(125ml42(:,2),125ml42(:,6),order-l); 
blayer(4,;)  =  polyfit(125ml43(:,2),125ml43{:,6),order-l); 
blayer(5,:)  =  polyfit025ml44(:,2),125ml44(:,6),order-l); 
blayer(6,:)  =  pol^t(125ml45(:,2),125ml45(:,6),order-l); 
blayer(7,:)  =  polyfit(125ml46(:,2),125ml46(:,6),order-l); 
blayer(8,:)  =  pol^t(125ml47(:,2),125nil47(:,6),order-l); 
blayer(9,:)  =  polyfit(125ml48(;,2),125ml48(:,6),order-l); 
blayer(10,:)  =  polyfit(125inl49(:,2),125ml49(:,6),order-l); 

blayer(ll,:)  =  polyfit(125inl50(;,2),125inl50(:,6), order-1); 
blayer(12,:)  =  polyfit(125ml51(:,2),125ml51(;,6),order-l); 
blayer(13,:)  =  polyfita25ml52(;,2),125ml52(:,6),order-l); 
bl^er(14,:)  =  po^t(125ml53(:,2),125ml53(:,6), order-1); 
blayer(15,:)  =  polyfit(125ml54(:,2),125ml54(:,6), order-1); 
bl^er(16,:)  =  po^t(125inl55(;,2),125ml55(:,6), order-1); 
blayer(17,;)  =  polyfit(125ml56(;,2),125ml56(:,6), order-1); 
bl^er(18,:)  =  polyfit(125ml57(:,2),125ml57(;,6), order-1); 
blayer(19,:)  =  polyfit(125ml58(:,2),125ml58(:, 6), order-1); 
blayer(20,:)  =  polyfit(125inl59(;,2),125ml59(:,6), order-1); 

blayer(21,:)  =  polyfit(125ml60(:,2),125ml60(:,6),order-l); 
bl^er(22,;)  =  polyfit(I25ml61(:,2),125ml61(:,6),order.l); 
blayer(23,:)  =  polyfit025ml62(;,2),125ml62(:,6), order-1); 
bl^er(24,:)  =  polyfit(125ml63(:,2),125ml63(:,6),order-l); 
blayer(25,;)  =  polyfit(125ml64(:,2),125iiil64(:, 6), order-1); 
blayer(26,:)  =  polyfit(125ml65(:,2),125ml65(:,6), order-1); 
blayer(27,;)  =  polyfit025ml66(:,2),125ml66(;,6), order-1); 
bl4'er(28,:)  =  po^t^5inl67(;,2),125ml67(:,6),order-l); 
blayer(29,:)  =  polyfit(125ml68(:,2),125ml68(:,6), order-1); 
blayer(30,;)  =  polyfit^5inl69(:,2),125ml69(:,6),order-l); 

blatyer(31,;)  =  polyfit(125inl70(:,2),125ml70(;,6),order-l); 
blayer(32,;)  =  pol^t(125ml71(:,2),125ml71(:,6), order-1); 
blayer(33,:)  =  polyfit(125ml72(:,2),125ml72(:,6),order-l); 
blayer(34,:)  =  polyfit025ml73(;,2),125ml73(;, 6), order-1); 
blayer(35,:)  =  po^t(125inl74(;,2),125ml74(:,6), order-1); 
blayer(36,:)  =  polyfit(125ml75(:,2),125ml75(:,6),order-l); 
blayer(37,;)  =  polyfit(125inl76{:,2),125ml76(:,6), order-1); 


104 


blayer(38,:)  =  polyfit(125ml77(:,2),125inl77(:,6),order-l); 
blayer(39,:)  =  ix)l^t025ml78(:,2),125inl78(:,6), order-1); 
blayer(40,:)  =  polyfit(125ml79(:,2),125inl79(:,6),order-l); 

blayer(41,:)  =  polyfit(125ml80(:,2),I25ml80(;,6), order-1); 
blayer(42,:)  =  polyfit(125ml81(:,2),125ml81(;,6), order-1); 
blayer(43,:)  =  polyfit(125ml82(:,2),125ml82(:,6), order-1); 
blayer(44,:)  =  polj4it(125inl83(:,2),125inl83(:,6), order-1); 
blayer(45,:)  =  polyfit(125ml84(:,2),125ml84(;,6), order-1); 
blayer(46,:)  =  polyfit(125ml85(:,2),125ml85(;,6), order-1); 
blayer(47,:)  =  polyfit(125ml86(;,2),125ml86(;,6),order-l); 
blayer(48,:)  =  pol^t(125inl87(:,2),125ml87(:,6), order-1); 
blayer(49,:)  =  polyfit(125ml88(;,2),125ml88(:,6),order-l); 
blayer(50,:)  =  polyfit(125nil89(:,2),125ml89(:,6), order-1); 

blayer(51,:)  =  polyfit(125ml90(;,2),125inl90(:,6), order-1); 
blayer(52,;)  =  polyfit(125ml91(:,2),125ml91(:,6), order-1); 
blayer(53,:)  =  polyfit(125ml92(:,2),125ml92(:,6), order-1); 
blayer(54,:)  =  polyfit(125ml93(:,2),125ml93(:,6), order-1); 
blayer(55,:)  =  polyfit(125iiil94(:,2),125ml94(:,6), order-1); 
blayer(56,:)  =  pofyfit(125inl95(:,2),125inl95(:, 6), order-1); 
blayer(57,:)  =  polyfit(125nil96(:,2),125ml96(:,6),oider-l); 
blayer(58,:)  =  polyfit(125ml97(;,2),125ml97(:,6), order-1); 
blayer(59,:)  =  polyfit(125nil98(:,2),125ml98(:,6),oider-l); 
blayer(60,:)  =  polyfita25ml99(:,2),125inl99(;,6), order-1); 

blayer(61,:)  =  polyfit(125in200(:,2),125m200(:,6), order-1); 

%pressure  data 

pressure(l,:)  =  polyfit(125ml40(:,2),125ml40(:,8),order-l); 
pressure(2,:)  =  pol>'fit(125ml41(:,2),125ml41(:,8),order-l); 
pressure(3,:)  =  po^t(125ml42(:,2),125ml42(:,8),order-l); 
pressure(4,:)  =  polyfit(125ml43(:,2),125ml43(:,8),order-l); 
{»essure{5,;)  =  polyfit(125inl44(:,2),125inl44(;,8),order-l); 
pressure(6,:)  =  polylit(125ml45(:,2),125ml45(:,8),orcfer-l); 
ptessure(7,:)  =  pofyfit(125ml46(:,2),125ml46(:,8),order-l); 
pressure(8,;)  =  polyfit(125ml47(:,2),125inl47(:,8),order-l); 
IM'essuie(9,:)  =  polyfit(125inl48(:,2),125ml48(:,8),order-l); 
pressure(10,:)  =  polyfit(125ml49(:,2),125ml49(;,8),order-l); 

IHessure(l  1,:)  =  polyfit(125ml50(:,2),125inl50(:,8),order-l); 
pressure(12,:)  =  po^t(125ml51(:,2),125ml51(:,8),order-l); 
pressure(13,:)  =  pdyfit(125ml52(:,2),125ml52(:,8),order-l); 
pressure(14,:)  =  polyfit(125ml53(:,2),125ml53(:,8),order-l); 
pressure(15,:)  =  polyfit^5ml54(:,2),125ml54(:,8),order-l); 
pressure(16,:)  =  polyfit(125inl55(:,2),125ml55(:,8),order-l); 
IHessure(17,;)  =  po^t(125ml56(:,2),125ml56(:,8),order-l); 
pressure(18,;)  =  polyfit(125ml57(:,2),125ml57(:,8),order-l); 
pressuie(19,:)  =  pol^t(125inl58(:,2),125ml58(:,8),order-l); 
pressure(20,:)  =  polyfit(125inl59(:,2),125ml59(:,8),order-l); 
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pressure(21,;)  =  polyfit(125ml60(:,2),125jnl60(.%8),order-l); 
pressure(22,:)  =  polyfit(125ml61(;,2),125ml61(:, 8), order-1); 
pressure(23,:)  =  polyfit(125ml62(:,2),125ml62(:,8), order-1); 
pressure(24,:)  =  polyfit(125ml63(:,2),125ml63(:,8), order-1); 
pressure(25,:)  =  polyfit(125inl64(:,2),125nil64(:,8),order-l); 
pressure(26,:)  =  polyfit(125ml65(:,2),125nil65(;,8),order-l); 
pressure{27,:)  =  polyfit{125iiil66(:,2),125inl66(:,8),order-l); 
pressure(28,;)  =  polyfit(125ml67(:,2),125ml67(;,8),order-l); 
pressure(29,:)  =  polyfit(125ml68(;,2),125ml68(:,8), order-1); 
pressure(30,:)  =  polylit(125ml69(:,2),125ml69(:,8), order-1); 

pressure(31,:)  =  polyfit(125ml70(:,2),125ml70(:,8), order-1); 
pressure(32,:)  =  polyfit(125ml71(:,2),125ml71{:,8),order-l); 
pressure(33,;)  =  polyfit(125inl72(:,2),125nil72(:,8),order-l); 
pressure(34,;)  =  polyfit(125ml73(:,2),125ml73(;,8),order-l); 
pressure(35,:)  =  poljfit(125ml74(:,2),125ml74(;,8),order-l); 
pressure(36,:)  =  polyfit(125ml75(:,2),125ml75(:,8),order-l); 
pressure(37,:)  =  pol^t(125ml76(:,2),125inl76(:,8),order-l); 
pressure(38,:)  =  polyfit(125ml77(:, 2), 125ml77{:,8), order-1); 
pressure(39,:)  =  pol^t(125inl78(:,2),125inl78(;,8), order-1); 
pressure(40,:)  =  polyfit(125ml79(:,2), 125ml  79(:,8),order-l); 

pressure(41,:)  =  polyfit(125ml80(:,2),125ml80(:,8),order-l); 
pressure(42,:)  =  polyfit(125ml81(;,2),125ml81(;,8),order-l); 
pressure(43,:)  =  pol^t(125ml82(:,2),125ml82(:,8),order-l); 
pressure(44,;)  =  polyfit(125ml83(;,2),125ml83(;,8), order-1); 
pressure(45,:)  =  pol^t(125ml84(:,2),125ml84(:,8Xorder-l); 
pressure(46,:)  =  polyfit(125ml85(:,2),125ml85{:,8),or&r-l); 
pressure{47,;)  =  po^t(125ml86(:,2),125ml86(:,8), order-1); 
pressure{48,:)  =  polyfit(125ml87(:,2),125ml87(:, 8), order-1); 
I»essure(49,:)  =  pol^t(125ml88(:,2),125ml88(;,8), order-1); 
pressure(50,:)  =  polyfit(125ml89(:,2),125ml89(:,8),order-l); 

pressiire(51,;)  =  polyfit(125ml90(:,2),125ml90(;,8),order-l); 
pressure(52,:)  =  polyfit(125ml91(:,2),125ml91(:,8),order-l); 
pressure(53,:)  =  polyfit025ml92(:,2),125ml92(:,8),order-l); 
pressuie(54,;)  =  polyfit(125ml93(:,2),125ml93(:,8), order-1); 
pressure(55,;)  =  polyfit(125ml94(:,2),125ml94(;,8), order-1); 
IHessure(56,:)  =  po^t(125ml95(:,2),125ml95(:,8),order-l); 
pressure(57,:)  =  pol^t(125ml96(:,2),125ml96(:,8), order-1); 
pressure(58,:)  =  polyfit(125ml97(:,2),125ml97(:,8), order-1); 
pressure(59,;)  =  polyfit(125ml98(:,2),125ml98(:,8), order-1); 
pressure(60,;)  =  prfyfit(125ml99(;,2),125ml99(:,8),order-l); 

pressure(61,:)  =  polyfit(125iii200(;,2),125m200(:,8),order-l); 


%temperatiire  data 
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if  clearinvoke 

clear  125ml40;clear  125ml41;clear  125nil42;clear  125nil43;clear  125ml44;clear  125ml45 
clear  125inl46;clear  125ml47;clear  125inl48;clear  125ml49;clear  125ml50;clear  125ml51 
clear  123ml52;clear  125inl53;clear  125nil54;clear  125ml55;clear  125ml56;clear  125ml57 
clear  125ml58;clear  125ml  59;clear  125ml60;clear  125ml61;clear  125ml62;clear  125ml63 
clear  125ml64;clear  125ml65;clear  125ml66;clear  125ml67;clear  125ml68;clear  125ml69 
clear  125ml70;clear  125ml71;clear  125ml72;clear  125ml73;clear  125ml74;clear  125ml75 
clear  125ml76;clear  125ml77;clear  125ml78;clear  125ml79;clear  125ml80;clear  125ml81 
clear  125ml82;clear  125ml83;clear  125ml84;clear  125ml85;clear  125ml86;clear  125ml87 
clear  123ml88;clear  I25ml89;clear  125ml90;clear  125ml91;clear  125ml92;clear  125ml93 
clear  125ml94;clear  125ml95;clear  125ml96;clear  125ml97;clear  125ml98;clear  125ml99 
clear  123m200 
end 

save  polyspot 


function  derivative  =  <fydx(f_of_x) 

%function  derivative  =  dydx(f_of_x) 

%Takes  a  polynomial  of  any  order  and 
%retums  the  derivative. 

%  f_of_x  is  a  vector  in  the  form: 

%  [a  b  c . . .  d] 

%  where 

%  f(x)  =  a*x''n  +  b*x''(n-l)  +  c*x^(n-2)  +  ...  d 

[numr,numc]  =  size(f_of_x); 
derivative  =  zeros(numr,nunic); 

for  r=  l:munr 

derivative(r,l)  =  0; 

forc  =  numc;-l:2 

derivative(r,c)  =  f_af_x(r,c-l)  *  (numc+l-c); 

end 

end 


function  contoorjength  =  lenfind(contour,nom_points,curve_start,curve_end) 

%function  contour_length  =  lenfind(contour,num_points,curve_start,curve_end) 
%Finds  the  lengths  of  a  series  of  curves  described  by  the 
%niatrix  of  polynomials,  'contour*,  numjmints  is  the 
%number  of  points  to  be  used  for  the  length  determination. 

%curve_start  and  curve_end  specify  curve  start  and  end  points 
%respectively. 
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[nuinr,numc]  =  size(contour); 
contourjength  =  zeros{nuinr,l); 


X  =  linspace(curve_start,curve_end,nxun_points); 

for  r=  Itnumr 

y  =  polyval(contoiir(r,:),x); 
contour_length(r)  =  curvlen(x,y); 


function  len  =  curvlen(x,y) 

%fiinction  len  =  curvlen(x,y) 

%Finds  the  length  of  a  curve  described 
%in  X,  y  coordinates,  x  and  y  are  vectors 
%containing  x  and  y  coordinate  pairs 
%Method  used  is  simple  summation  of 
%linear  distance  between  points. 

%The  more  data  poims  usai  along  the 
%curve,  the  more  accurate  the  length 
%calculation 

xlen  =  length(x); 
len  =  0; 

for  count  =  1  :xlen-l 

len  =  len  +  sqrt(((x(count+l)-x(count)r2)+((y(count+l)-y(count)r2)); 
end 


function  (X,fixed_contour]  =  conforce(contour,contour_length,num j»mts,curve_start,curve_end) 

%function  pCfixed_contour]  =  conforce(contour,contour_length,num_points,curve_start,curve_end) 

%Takes  series  of  shapes  describes  by  matrix  of  polynimials 

%'contour'  and  forces  all  of  the  lengths  to  be  eq^  to 

%contour_length.  Number  of  points  along  curve  is  specified 

%in  num_points.  curve_end  and  curve_start  specify  curve 

%start  and  end  points  respectively. 

%Strategy  used  is  to  fix  end  of  curve  specified  by 
%curve_end.  Then  iteratively  move  the  start  point 
%(curve_start)  and  reevaluate  the  curve  length  until 
%a  tolerance  with  the  specified  contour  length  is 
%achieved.  Because  of  the  extremely  small  degree  of 
%movement  invoved  with  the  start  point  (~.04  compared  to 
%a  length  of  ~25)  this  extrapolation  was  considered 
%resonably  safe. 

[numr,numc]  =  sizefcontour); 


108 


maxit  =300;  %maximum  iteration  allowed  per  curve 

tol  =  .0005;  %tolerance  of  evaluated  curve  to  contour  length 

step_size  =  .00005;  %steK)ing  interval  in  moving  the  start  point. 

%X  and  fixed_contour  are  matices  storing  x  and  y  values 
%respectivley,  of  the  forced  length  contours. 

X  =  zeros(numr,numjx)ints); 
fixed_contour  =  zeros(numr,num_points); 

move_end  =  curve^end; 
move_start  =  curve_start; 

for  r=  numr>l:l 
r 

for  iter  =  l:maxit 

X  =  lin^ce(move_start,move_end,nunijpoints); 
y  =  polyval(contour(r,:),x); 
len  =  curvlen(x,y); 
if  abs(len-contour  length)  <  tol 
X(r,:)  =  x; 

fixed_contour(r,:)  =  y; 

%  move_start 

break 

else 

%move_end  =  move_end  +  step_size; 
move_start  =  move__start  -  step_size; 
end 

end 

%ter 

if  iter  =  maxit;disp('Maxit  Reached*);end 
end 


function  tranpoly  =  findttp(xtyt,Sxt,Cxt,SCxt,xi,yi,Sxi,Cxi,SCxi) 

%function  tranpoly  =  findttp(xt,yt,Sxt,Cxt,SCxt,xi,yi,Sxi,Cxi,SCxi) 
%5ubspoly  foa^by: 

%  Ax=B  where  tranpoly  =  x 

%BC's  Y  at  throat  and  entrance,  slop^  at  throat  and  entrance 
%curvaturc  at  throatand  entrance 
%specily  third  derivative  at  the  entrance  to  ensure 
%continuous  second  derivative 


B1  =  [yt;Sxt;Cxt;yi;Sxi;Cxi;SCxi]; 


A1  =  [xt'^6  xt^5  xtM  xt^3  xt'^2  xt  1; 
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6*xt^5  5*xt''4  4*xt''3  3*xt''2  2*xt  1  0; 

30*xt''4  20*xt''3  12*xt''2  6*xt  2  0  0; 

xi^  xi^'S  xiM  xi*3  xi''2  xi  1; 

6*xi''5  5*xiM  4*xi^3  3*xi^2  2*xi  1  0; 

30*(xir4  20*(xi)^3  12*(xir2  6*xi  2  0  0; 

120*xi^3  60*xi''2  24*xi  6  0  0  0]; 

%tranpoly  =  A1\B1; 

%BC's  Y  at  throat  and  entrance,  slope  at  throat  and  entrance 
%curvature  at  throat  and  entrance 

%specily  third  derivative  at  the  throat  and  entrance  to  ensure 
%continuous  second  derivative 


B2  =  (yt;Sxt;Cxt;SCxt;yi;Sxi;Cxi;SCxi]; 

A2  =  [xt'^7  xt'^  xt'^S  xtM  xt''3  xt'^2  xt  1; 
7*xt^  6*xt^5  S^xtM  4*xt''3  3*xt''2  2*xt  1  0; 

42*xt^5  30*xt^4  20*xt''3  12*xt''2  6*xt  2  0  0; 

210*xt''4  120*xt^3  60*xt''2  24*xt  6  0  0  0; 

xi''7  xi'^  xi'^S  xi''4  xi^3  xi''2  xi  1; 

7*xi^  6*xi''5  5*xiM  4*xi''3  3*xi^2  2*xi  1  0; 

42*xi^5  30*(xir4  20*(xir3  12*(xir2  6*xi  2  0  0; 

210*xiM  120*xi'^3  60*xi'^2  24*xi  6  0  0  0]; 


tranpoly  =  A2\B2; 


hinction  [x,y,yp,yH),3fR)p]  =exposhp(xi,xt,yi,Sxi,yt,Sxt,Cxt,SCxt,b,nuniSpts); 

%function  Ix,y,yp,ypp,ynpp]  =  exposhp(xi,xt,yi,Sxi,yt,Sxt,Cxt,SCxt,b,numSpts); 
%&nds  exponential  faction  to  descrite  subsonic  shape 
%also  fin^  first  three  derivatives  of  function 

A=  -Cxt.*((xt-xi).^2)./(yi-yt); 

B  =  SCxt  *((xt-xi).^3)./(yi-yt); 

%t  =  [linspace(l,0,nuinSpts)]; 

t  =  [logspace(l,0,nuniSpts*(l/3))  linspace(.99,0,numSpts*(2/3))]; 
z  =  1  -  exp(-b.*t); 


al  =  (.A./2)*b^2;  %./((z./(b.*(l-z))).''2) 

a2  =  ((B*b^3>+(6*al*b))/(-6);  %./((z./(b  ♦(l-z))).''3); 

f=ej?)(  (-ain.''2)-(a2*t.''3)  ); 

fslope  =  (I/b).*(  (-2*al*tH3*a2*t.^2)  )*(exp(  (-al*t.''2)  -  (a2*t.''3)  +  (bn)  )); 
fcurve  =  ((l/b)^2)*(  (-2*al)+(((-6*a2)-(2*al*b))n)+(((4*al.''2)- 

(3*a2*b))n.''2)+{12*al*a2n.''3)+(9*a2.''2n.M) )  ♦(exp(  (-ain.''2)  -  (a2n.^3)  +  (2*bn)  )); 
fslope_curve  =  ((l/b)^3)*(  ((-6*a2)-(6*al*b))+(((12*al^2)-(18*a2*b)- 
(4*al*b^2))n)+(((54*al*a2)+(12*b*al''2)-{6*a2*b^2))n.'"2)+(((54*a2^2)+(48*al*a2*b)- 
(8*al^3))*t.''3)+((('36*a2*al''2)-K27*b*a2''2))*t.M)+((-54*al*a2'^2)n.^5)+((-27*a2^3)*t.''6)  ).*(exp( 

(-ain.'^2)-(a2n.''3)  +  (3n)n)  )); 
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x  =  (xt-(z.*(xt-xi))); 

y  =  yi  -  f*(yi-yt); 

yp  =  fslope*(yi-yt)./(xt-xi); 

yR)  =  -fcurve*(yi-yt)./((xt-xi).''2); 

y^jp  =  fslope_curve*(yi-yt)./((xt-xi).^3); 

%plot(t,z,t4;':'); 

^<«ubplot(3,l,3); 

®/<^)lot(x,y); 

%axis([-15. 1,-14.9,4.5,5.51); 


function  [x_for_s,y_for_s,c_ind]  =  fin(fc^(x,y,s_dini); 

%function  [x_for_s,y_for_s]  =  findxy(x,y,s_dim); 

%finds  the  x  and  y  values  for  a  given  distance 
%along  a  curve  specified  in  s  dim 

[numr,numc]  =  size(x); 

xfors  =  zeros(niunr,length(s_dim)); 
y_for_s  =  zen)s(nunu-,length(s_dim)); 
clen  =  zeros(numr,length(s_dim)); 
c_ind  =  zeros(nunir,length(s_dim)); 

for  s_dim_count  =  l:length(s_dim) 

%s_dim_count=10; 
length(s_dim)-  s_dini_count 

for  r=  linumr 
len  =  0; 

for  c  =  numc-l:-l:l 

len  =  len  +  sqrt(((x(r,c+l)-x(r,c))^2)+(0'(r,c+l)-y(r,c)y'2)); 
if  len  >  s_dim(s_dini_count); 
gt_x  =  x(r,c+l);lt_x  =  x(r,c); 
gt_y  =  y(r,c+l);lt_y  =  y(r,c); 

%  [gt_x  lt_x  gt_y  h_y  len] 

dist _gtjt  =  (sqrt(((gt_x-h_x)''2)+((gt_y-lt _y)''2))); 
linratio  =  (len  -  s_dim(s_dini_count))/dist_gt_lt; 
x_for_s(r,s_dim_count)  =  lt_x  +  (lin_ratio*abs(gt_x-lt_x)); 
if  lt_y  <  gt_y 

y_for_s(r,s_dim_count)  =  lt_y  +  (lin_ratio*abs(gt_y-lt_y)); 
elseif  lt_y  >  gt_y 

y_for_s(r,s_dim_count)  =  lt_y  -  (lin_ratio*abs(gt_y-lt_y)); 
else 

y_for_s(r,s_dim_count)  =  lt_y; 
end 


c_md(r,s_dini_count)  =  c; 
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clen(r,s_dim_count)  =  len  -  sqrt(((lt_x-x_for_s(r,s_dim_count))^2)+((lt_y- 
y_for_s(r,s_dim_count))^2)); 
break 


end 

end 

end 

end 


function  out  =  savespec(horz_dini,fixed_contour) 

%function  out  =  savespec(horz_dim,fixed_contour) 
%dumniy  fimction  to  save  specific  variable  to  a  file 
out  =  0; 
savespecspot 

function  out  =  savespel(x_for_s,y_for_s,c_ind) 

out  =  0; 
savespecspol 


The  jack  pivot  points  were  determined  firom  the  layout  of  the  nozzle  medianism.  The 
coordinates  of  the  pivot  point  and  the  geometry  associated  with  each  nozzle  shape  was  used  to 
determine  a  jack  laigth  programming  schedule  for  each  Mach  number.  This  schedule  is  shown  in 
Table  5. 
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Mach  Number 

18  (in) 

Jack  Mounting  Point  Measured  Along  the  Lenght  of  the  Curve 

15  (in)  12.25  (in)  9  (in)  6  (in)  3  (in)  0(in)  -3.5  (in) 

-6.5  (in) 

1.4 

7.2837 

7.3292 

7.4015 

7.4776 

7.5553 

7.6061 

7.5268 

7.1384 

1.41 

7.2459 

7.2872 

7.335 

7.4101 

7.4881 

7.5668 

7.6178 

7.5384 

7.1498 

1.42 

7.2474 

7.2908 

7.3409 

7.4187 

7.4988 

7.5785 

7.6296 

7.5501 

7.1613 

1.43 

7.2489 

7.2944 

7.347 

7.4276 

7.5097 

7.5905 

7.6417 

7.5621 

7.173 

1.44 

7.2505 

7.2982 

7.3532 

7.4366 

7.5207 

7.6026 

7.6539 

7.5743 

7.1848 

1.45 

7.^2 

7.3018 

7.3593 

7.4456 

7.5317 

7.6147 

7.6663 

7.5866 

7.1968 

1.46 

7.2536 

7-3056 

7.3656 

7.4548 

7.543 

7.627 

7.6787 

7.599 

7.2089 

1.47 

7.2551 

7.3094 

7.3719 

7.4641 

7.5543 

7.6395 

7.6913 

7.6115 

7.2211 

1.48 

7.2567 

7.3133 

7.3784 

7.4736 

7.5659 

7.6521 

7.7041 

7.6242 

7.2335 

1.49 

7.2583 

7.3171 

7.3849 

7.483 

7.5775 

7.6648 

7.7169 

7.6369 

7.246 

1.5 

7.2599 

7.3211 

7.3915 

7.4927 

7.5893 

7.6777 

7.7299 

7.6498 

7.2586 

1.51 

7.2614 

7.325 

7.398 

7.5023 

7.601 

7.6905 

7.743 

7.6628 

7.2713 

1.52 

7.2631 

7.3289 

7.4047 

7.5121 

7.613 

7.7036 

7.7562 

7.676 

7.2841 

1.53 

7.2646 

7.3329 

7.4114 

7.5219 

7.625 

7.7167 

7.7694 

7.6892 

7.297 

1.54 

7.2662 

7.3369 

7.4182 

7.5318 

7.6371 

7.73* 

7.7828 

7.7024 

7.31 

1.55 

7.2678 

7.3408 

7.4249 

7.5418 

7.6493 

7.7433 

7.7962 

7.7158 

7.3231 

1.56 

7.2694 

7.3448 

7.4317 

7.5518 

7.6615 

7.7566 

7.8097 

7.7292 

7.3362 

1.57 

7.2709 

7-3488 

7.4386 

7.5619 

7.6739 

7.7701 

7.8234 

7.7428 

7.3495 

1.58 

7.2726 

7.3529 

7.4455 

7.5721 

7.6863 

7.7837 

7.8371 

7.7564 

7.3628 

1.59 

7.2741 

7.3568 

7.4523 

7.5822 

7.6987 

7.7972 

7.8508 

7.77 

7.3761 

1.6 

7.2757 

7.3609 

7.4593 

7.5925 

7.7113 

7.8109 

7.8646 

7.7837 

7.3896 

1.61 

7.2773 

7.3649 

7.4663 

7.6028 

7.7239 

7.8247 

7.8785 

7.7975 

7.4031 

1.62 

7.2789 

7.369 

7.4732 

7.6132 

7.7365 

7.8385 

7.8924 

7.8114 

7.4166 

1.63 

7.2804 

7.3729 

7.4801 

7.6234 

7.7491 

7.8522 

7.9064 

7.8252 

7.4302 

1.64 

7.282 

7.377 

7.4872 

7.6339 

7.7619 

7.8662 

7.9204 

7.8392 

7.4439 

1.65 

7.2836 

7.381 

7.4942 

7.6443 

7.7747 

7.8801 

7.9344 

7.8531 

7.4575 

1.66 

7.2851 

7.385 

7.5011 

7.6548 

7.7874 

7.894 

7.9485 

7.8671 

7.4712 

1.67 

7.2866 

7.3889 

7.5081 

7.6652 

7.8002 

7.908 

7.9626 

7.8811 

7-4849 

1.68 

7.2881 

7.3929 

7.5151 

7.6757 

7.8131 

7.9219 

7.9767 

7.8952 

7.4987 

1.69 

7.2897 

7.3969 

7.5221 

7.6862 

7.826 

7.936 

7.9909 

7.9003 

7.5125 

1.7 

7.2912 

7.4009 

7.5291 

7.6967 

7.8389 

7.9501 

8.0051 

7.9234 

7.5263 

1.71 

7.2927 

7.4047 

7.536 

7.7072 

7.8517 

7.9641 

8.0193 

7.9374 

7.5401 

1.72 

7.2942 

7.4086 

7.543 

7.7177 

7.8646 

7.9782 

8.0335 

7.9515 

7.554 

1.73 

7.2958 

7.4126 

7.5499 

7.7283 

7.8776 

7.9923 

8.0478 

7.9^ 

7.5679 

1.74 

7.2972 

7.4165 

7.5569 

7.7388 

7.8905 

8.0064 

8.062 

7.9798 

7.5817 

1.75 

7.2987 

7.4203 

7.5638 

7.7493 

7.9034 

8.0205 

8-0762 

7.9939 

7.5956 

1.76 

7.3002 

7.4241 

7.5707 

7.7598 

7.9163 

8.0346 

8.0904 

8.008 

7.6094 

1.77 

7.3016 

7.4279 

7.5775 

7.7703 

7.9292 

8.0487 

8.1046 

8.0221 

7.6232 

1.78 

7.3031 

7.4317 

7.5844 

7.7808 

7.9421 

8.0627 

8.1188 

8.0363 

7  6371 

1.79 

7.3045 

7.4354 

7.5911 

7.7913 

7.955 

8.0768 

8.133 

8.0503 

7.6509 

1.8 

7.3059 

7.4392 

7.5979 

7.8017 

7.9679 

8.0908 

8.1471 

8.0644 

7.6647 

Table  5.  Jack  Screw  Program  (Length  from  Pivot  Point  to  Jack  Mount  Eyelet) 
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Table  5.  (coot)  Jack  Screw  Program  (Length  from  Pivot  Point  to  Jack  Mount  Eyelet) 

Figure  22  shows  the  jack  mount  and  jack  pivoti)oint  geometry.  The  length  specified  in 
Table  5  was  caUed  d3  in  Figure  22.  The  thickness  of  the  plate  was  .25  indies.  The  distance  fi-csn 
the  center  of  the  jack-mount  eyelet  to  the  mi^oint  of  the  attachmait  surfece  betweai  the  mounting 
fixture  and  the  plate  (d2)  was  .5  indies.  The  coordinates  (xl,  yl)  and  (x3,  y3)  were  known  fi-om 
the  individual  Madi  contour  solutions  and  Ae  pivot  point  was  found  using  AutoCad.  The  slope  of 
Ae  COTitoiu-  at  Ae  jack-mounting  point  was  also  known  from  Ae  aerodynamic  analysis.  From  Ae 
geometry,  Ae  foUowing  relations  a^qilied, 

0  =  taii-'^  (28) 

dx 

and 

dl  =  —  (29) 

COS0 

so  Aat  Ae  jade  loigA  was  given  by 
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d3  = 


Yi- 


( 


(  _,dy^ 

coa  tan  — 

I  dxj 


+  C09 


tan 


V 


dx . 


X,- 


X,  -d2sin 


-idy' 


tan" 

dx^ 


(30) 


JACK 

>IVOT 

>OINT 


(Xj  ,yi)  -COORDINATES  OF  JACK  MOUNTING  POINT 
(XjJj)  -COORDINATES  OF  JACK  MOUNT  EYELET(CENTER) 

(X3.y3)-COORDINATES  OF  PIVOT  POINT(CENTER) 
dl  -DISTANCE  FROM  JACK  MOUNTING  POINT  TO 
CENTER  OF  JACK  MOUNT  FIXTURE  ATTACHMENT 
d2  -DISTANCE  FROM  CENTER  OF  JACK  MOUNT  FIXTURE 
TO  CENTER  OF  JACK  MOUNT  EYELET 
d3  -DISTANCE  FROM  CENTER  OF  JACK  MOUNT  EYELET 
TO  JACK  PIVOT  POINT 

d3  t  -THICKNESS  OF  FLEXIBLE  PLATE(.25  INCHES) 

0  -LOCAL  ANGLE  OF  INCLINATION 


JACK 


1 

d2| 

MOUNT 

EYELET 

/dl 

V 

JACK  MOUNTING 
POINT 

y  . .....1 

e 

FLEXIBLE 

PLATE 

SECTION 


Figure  22.  Jack  Mount  Geometry 

The  diapes  generated  and  their  derivatives  are  shown  in  Figures  23  through  28.  The  blue 
and  cyan  curves  rqiresait  the  method  of  characteristics  soluticai.  The  greoi  and  magenta  curves 
rq)resent  the  throat  transition  polynomial.  The  yeUow  and  red  ciurves  rq)resa]t  the  parameterized 
e?qKxiential  solutions  for  the  subscnic  section. 
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Figure  23.  Nozzle  Shapes,  Mach  1.4  -  2  in  Steps  of  .1 
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Figure  24.  Nozzle  Shapes  (Throat  Detail) 
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Figure  28.  Curvature  Variation  (Throat  Detail) 


1 

The  following  MATLAB  script  file  was  used  to  convert  one  specific  shape  into  a  .dxf 
formatted  file  which  was  then  imported  into  AutoCad™. 


function  [shapex,shapey]  =  makedxfl(curvelx,curvely,curve2x,curve2y,curve3x,curve3y) 

%function  [shapex,shapey]  =  makedxfl(curvelx,curvely,curve2x,curve2y,curve3x,curve3y) 
shapex=  tcurvelx(l:length(curvelx)-l)  curve2x(l:length(curve2x)-l)  curve3x(l;length(curve3x))]; 
shapey  =  [curvely(l:length(curvely)-l)  curve2y(i:length(curve2y)-l)  curve3y(l:length(curve3y))]; 
shapez  =  zeros(length(shapex)); 

diary  dxffilel.dxf 
dispC  O’); 
disp('SECTION'); 
dispC  2'); 
disp('ENTITIES'); 
dispC  O’); 

for  r  =  l;length(shapex)-l 

disp(’LINE’) 
dispC  8’); 


dispCO-); 
dispC  10*); 

disp(nuin2str(shapex(r))); 
disp(’  20*); 

disp(mim2str(shapey(r))); 
dispC  30’); 

disp(niun2str(shapez(r))); 
dispC  ii*); 

disp(niun2str(shapex(r+ 1))); 
dispC  21*); 

disp(nviin2str(shapey(r+ 1 ))); 
dispC  31’); 

di^num2str(shapez(r+ 1 ))); 
disp(’  O’); 

end 

disp(’ENDSEC’); 
dispC  O’); 

disp(’EOTO; 

diary  off 


The  following  list  contains  the  range  of 'x'  values  for  the  supersmic  contour  shapes  and  the 
coefficients  for  the  ninth  order  polynomials  used  to  fit  the  method  of  characteristics  solution.  The 
rows  represent  the  foUowing  information;  row  1,  starting  x  value,  row  2,  aiding  x  value,  rows  3 
through  12,  the  coefificiaits  for  the  polynomials  arranged  in  decreasing  order  of  x. 


Mach  1.4 

0.30487800000000 

25.00000000000000 

-0.00000000000039 

0.00000000003593 

-0.00000000128954 

0.00000002268543 

-0.00000031673950 

0.00001060931799 

-0.00030767740282 

0.00356896347146 

0.01036963014123 

2.39254386433153 


Mach  1.41 
0.30698300000000 
25.00000000000000 
-0.00000000000052 
0.00000000005038 
-0.00000000195624 
0.00000003905141 
-0.00000054225768 
0.00001216533775 
•0.00031162037178 
0.00361692134664 
0.01027272558865 
2.38085840987376 


Mach  1.42 
0.30917200000000 
25.00000000000000 
-0.00000000000063 
0.00000000006329 
-0.00000000254174 
0.00000005317353 
-0.00000073238856 
0.00001339527013 
-0.00031380756585 
0.00366012403665 
0.01018167020439 
2.36901983237482 


Mach  1.43  Mach  1.44  Mach  1.45 

0.31140200000000  0.31366300000000  0.28841700000000 
25.00000000000000  25.00000000000000  25.00000000000000 
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-0.00000000000079 

0.00000000008042 

-0.00000000332465 

0.00000007232162 

-0.00000099878504 

0.00001533101967 

-0.00031987382943 

0.00371560926355 

0.01007130498266 

2.35695808825769 

Mach  1.46 
0.28974400000000 
25.00000000000000 
-0.00000000000085 
0.00000000008346 
-0.00000000323703 
0.00000006275248 
-0.00000070465675 
0.00001035146575 
-0.00027530851652 
0.00368843928134 
0.00998223083302 
2.32007529715504 

Mach  1.49 
0.2%88800000000 
25.00000000000000 
-0.00000000000150 
0.00000000015319 
-0.00000000632121 
0.00000013584493 
-0.00000169492047 
0.00001743703419 
-0.00029664268280 
0.00385431462164 
0.00966331961739 
2.28191068774307 

Mach  1.52 
0.27664300000000 
25.00000000000000 
-0.00000000000176 
0.00000000017530 
-0.00000000699489 
0.00000014279534 
-0.00000161753561 
0.00001418752820 
-0.00025938377252 
0.00384630119301 
0.00954644481201 
2.24276154074788 


-0.00000000000094 

0.00000000009710 

-0.0000(X)00407783 

0.00000009045023 

-0.00000124494040 

0.00001701960420 

-0.00032407111129 

0.00376364348956 

0.00997430481370 

2.34475198617514 

Mach  1.47 
0.29206300000000 
25.00000000000000 
-0.00000000000107 
0.00000000010728 
-0.00000000429965 
0.00000008817331 
-0.00000105302843 
0.00001290081701 
-0.00028358176890 
0.00374734334853 
0.00987158008618 
2.30749571342674 


-0.00000000000071 

0.00000000006876 

-0.00000000260165 

0.00000004821542 

-0.00000052013729 

0.00000927857827 

-0.00027469785820 

0.00365082028944 

0.01006735763084 

2.33253627935510 

Mach  1.48 
0.29446500000000 
25.00000000000000 
-0.00000000000129 
0.00000000013070 
-0.00000000534177 
0.00000011303886 
-0.00000139250703 
0.00001535861412 
-0.00029119567559 
0.00380364598357 
0.00976527127038 
2.29471417425332 


Mach  1.5 

0.29939400000000 

25.00000000000000 

-0.00000000000170 

0.00000000017399 

-0.00000000722261 

0.00000015674181 

-0.00000197097139 

0.00001930707895 

-0.00030112008897 

0.00390246882854 

0.00956509118123 

2.26891603674968 

Mach  1.53 
0.27918200000000 
25.00000000000000 
-0.00000000000199 
0.00000000020025 
-0.00000000807111 
0.00000016773093 
-0.00000194954128 
0.00001651945367 
-0.00026589018358 
0.00389942754204 
0.00944167762570 
2.22949152409276 


Mach  1.51 
0.27412600000000 
25.00000000000000 
-0.00000000000153 
0.00000000015248 
-0.00000000602322 
0.00000012068919 
-0.00000133112828 
0.00001229409064 
-0.00025526448089 
0.00380030462750 
0.00964100619507 
2.25594809559862 

Mach  1.54 
0.28174400000000 
25.00000000000000 
-0.00000000000221 
0.00000000022174 
-0.00000000896659 
0.00000018766152 
-0.00000220163930 
0.00001809848976 
-0.00026826073347 
0.00394049997622 
0.00935259087113 
2.21613450557234 
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Mach  1.55 
0.28338000000000 
25.00000000000000 
-0.00000000000246 
0.00000000024780 
-0.00000001006719 
0.00000021260645 
-0.00000252650374 
0.00002031337952 
-0.00027385044272 
0.00399064632048 
0.00925039111459 
2.20271324637669 


Mach  1.56  Mach  1.57 
0.28603200000000  0.26268500000000 
25.00000000000000  25.00000000000000 
-0.00000000000268  -0.00000000000254 
0.00000000027040  0.00000000025100 
-0.00000001100498  -0.00000000989894 
0.00000023343172  0.00000019995372 
-0.00000279030807  -0.00000219848007 
0.00002198293484  0.00001552627024 
-0.00027651068091  -0.00023410598677 
0.00403218982340  0.00394202454920 
0.00916039567695  0.00921789656670 
2.18920812968315  2.17567066614398 


Mach  1.58 
0.26534000000000 
25.00000000000000 
-0.00000000000276 
0.00000000027260 
-0.000000010777% 
0.00000021912552 
-0.00000243808900 
0.00001700659621 
-0.00023595638461 
0.00398227815474 
0.00912716490314 
2.16195425587554 


Mach  1.59 
0.26805700000000 
25.00000000000000 
-0.00000000000299 
0.00000000029502 
-0.00000001168352 
0.00000023869348 
-0.00000267950408 
0.00001845972995 
-0.00023731405288 
0.00401983617789 
0.00904226666279 
2.14825895758319 


Mach  1.6 

0.26982300000000 

25.00000000000000 

-0.00000000000314 

0.00000000030938 

-0.00000001223583 

0.00000024992460 

-0.00000280622336 

0.00001897665289 

-0.00023424980819 

0.00404670138369 

0.00896602406560 

2.13443501752049 


Mach  1.61 
0.27262700000000 
25.00000000000000 
-0.00000000000332 
0.00000000032647 
-0.00000001288482 
0.00000026299065 
-0.00000295387191 
0.000Q1964323575 
-0.00023178457084 
0.00407455210629 
0.00889099255891 
2.12055484161548 


Mach  1.62 
0.27539700000000 
25.00000000000000 
-0.00000000000352 
0.00000000034506 
-0.00000001360871 
0.00000027812014 
-0.00000313570039 
0.00002065257791 
-0.00023131584013 
0.00410900008659 
0.00880503344092 
2.10663669008140 


Mach  1.63 
0.25283500000000 
25.00000000000000 
-0.00000000000340 
0.00000000032700 
-0.00000001253315 
0.00000024502323 
-0.00000255091258 
0.00001431411398 
-0.00018972440783 
0.00402238927113 
0.00885488291605 
2.09278871729892 


Mach  1.64 
0.25474600000000 
25.00000000000000 
-0.00000000000347 
0.00000000033179 
-0.00000001263724 
0.00000024514372 
-0.00000251991322 
0.00001351524872 


Mach  1.65  Mach  1.66 

0.25756100000000  0.26043800000000 
25.00000000000000  25.00000000000000 
-0.00000000000358  -0.00000000000375 
0.00000000034113  0.00000000035673 
-0.00000001292313  -0.00000001348808 
0.00000024931217  0.00000026018553 
-0.00000254488739  -0.000002663853% 
0.00001321138741  0.00001368069134 
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-0.00018015200596 

0.00403172334353 

0.00879961972700 

2.07871033599613 

Mach  1.67 
0.26332700000000 
25.00000000000000 
-0.00000000000384 
0.00000000036333 
-0.00000001364642 
0.00000026120092 
-0.00000264365394 
0.00001298315785 
-0.00016088721127 
0.00408668996271 
0.00859844742915 
2.03653555498925 

Mach  1.7 

0.24646200000000 

25.00000000000000 

-0.00000000000365 

0.00000000032999 

-0.00000001159720 

0.00000019943031 

-0.00000160610756 

0.00000208338408 

-0.00008745640961 

0.00399179118679 

0.00855642674655 

1.99405514434684 

Mach  1.73 
0.23044900000000 
25.00000000000000 
-0.00000000000315 
0.00000000026392 
-0.00000000809604 
0.00000010375576 
-0.00000011974151 
-0.00001223952308 
0.00000089954521 
0.00386284347096 
0.00854522257184 
1.95148514118891 

Mach  1.76 
0.73115200000000 
25.00000000000000 
-0.00000000000276 
0.00000000021046 


-0.00017326610129 

0.00404939042714 

0.00873338477807 

2.06467700409960 


-0.00016993040949 

0.00407554643649 

0.00865695416657 

2.05062203394949 


Mach  1.68 
0.24154300000000 
25.00000000000000 
-0.00000000000354 
0.00000000032535 
-0.00000001169564 
0.00000020779843 
-0.00000179171954 
0.00000463354617 
-0.00011081501021 
0.00398224721625 
0.008661865281% 
2.02246317798176 

Mach  1.71 
0.57120200000000 
25.00000000000000 
-0.00000000000350 
0.00000000031054 
-0.00000001060669 
0.00000017338067 
-0.00000121744040 
-0.00000156576692 
-0.00006470462722 
0.003%887640257 
0.00853486167102 
1.97989987924680 

Mach  1.74 
0.23340400000000 
25.00000000000000 
-0.00000000000312 
0.00000000025672 
-0.00000000761947 
0.00000008956106 
0.00000010502035 
-0.00001452004022 
0.00001713123827 
0.00385599112212 
0.00850527373802 
1.93725695672591 

Mach  1.77 
0.24145000000000 
25.00000000000000 
■0.00000000000248 
0.00000000017625 


Mach  1.69 
0.24353600000000 
25.00000000000000 
-0.00000000000356 
0.00000000032382 
-0.00000001146980 
0.00000019921606 
-0.00000163438863 
0.00000279347477 
-0.00009628881908 
0.00397939599436 
0.00861817067718 
2.00826400121888 

Mach  1.72 
0.25233500000000 
25.00000000000000 
-0.00000000000352 
0.00000000030926 
-0.00000001039945 
0.00000016560685 
-0.00000107916689 
-0.00000317580302 
-0.00005145657334 
0.00396907367233 
0.00848848318859 
1.96567205197434 

Mach  1.75 
0.23636700000000 
25.00000000000000 
-0.00000000000281 
0.00000000022012 
-0.00000000586849 
0.00000004567423 
0.00000073228577 
-0.00002001838535 
0.00004808142566 
0.00381374060300 
0.00850294689879 
1.92302080705842 

Mach  1.78 
0.22121500000000 
25.00000000000000 
-0.00000000000212 
0.00000000013153 
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-0.00000000528124 

0.00000002896956 

0.00000098774870 

-0.00002250623826 

0.00006515418718 

0.00380475610384 

0.00846561034919 

1.90880202954196 

Mach  1.79 
0.22419500000000 
25.00000000000000 
-0.00000000000166 
0.00000000007951 
0.00000000109020 
-0.00000013350243 
0.00000335515567 
-0.00004352597656 
0.00018263181317 
0.00360839813407 
0.00851809289663 
1.86624810443883 

Mach  1.82 
0.23237400000000 
25.00000000000000 
-0.00000000000073 
-0.00000000003338 
0.00000000656279 
-0.00000027056223 
0.00000528747734 
-0,00006009413638 
0.00027463080010 
0.00348390663282 
0.00850316237497 
1.82372054427473 

Mach  1.85 
0.21887200000000 
25.00000000000000 
0.00000000000097 
-0.00000000022773 
0.00000001564213 
-0.00000049319601 
0.00000839959464 
-0.00008629425151 
0.00041216585533 
0.00324592636295 
0.00858998925428 
1.78148237107564 

Mach  1.88 


-0.00000000358548 

-0.00000001458841 

0.00000162094414 

-0.00002812337211 

0.00009703626872 

0.00375919344771 

0.00846601389274 

1.89458995411688 

Mach  1.8 

0.22723000000000 

25.00000000000000 

-0.00000000000146 

0.00000000005325 

0,00000000241678 

-0.00000016759945 

0.00000384378118 

-0.00004782691814 

0.00020779008975 

0.00358014074349 

0.00849938246594 

1.85205084177772 

Mach  1.83 
0.21283800000000 
25.00000000000000 
0.00000000000007 
-0.00000000012360 
0.00000001075060 
-0.00000037381061 
0.00000675594008 
-0.00007266792091 
0.00034013046303 
0.00335354318196 
0.00857480446534 
1.80966869642700 

Mach  1.86 
0.22105600000000 
25.00000000000000 
0.00000000000147 
-0.00000000028478 
0.00000001830939 
-0.00000055816741 
0.00000929475902 
-0.00009371648931 
0.00045116877200 
0.00318423992953 
0.00860487443485 
1.76742756094007 

Mach  1.89 


-0.00000000134352 

-0.00000007363572 

0.00000251399413 

-0.00003635242146 

0.00014401123203 

0.00366989969037 

0.00849964369472 

1.88044200605437 

Mach  1.81 
0.23021900000000 
25.00000000000000 
-0.00000000000107 
0.00000000000777 
0.00000000458495 
-0.00000022133016 
0.00000459662058 
-0.00005421106596 
0.00024233450915 
0.00352950860502 
0.00850402535290 
1.83786997797765 

Mach  1.84 
0.21587900000000 
25.00000000000000 
0.00000000000041 
-0.00000000016425 
0.00000001270925 
-0.00000042251014 
0.00000743650867 
-0.00007844138786 
0.00037194918565 
0.00330805391202 
0.00857634114151 
1.79555632201802 

Mach  1.87 
0.22410000000000 
25.00000000000000 
0.00000000000227 
-0.00000000037386 
0.00000002234051 
-0.00000065422462 
0.00001060001132 
-0.00010430892528 
0.00050409953520 
0.00309037501330 
0.00865343799705 
1.75340058444018 

Mach  1.9 
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0.20828300000000 

25.00000000000000 

0.00000000000359 

-0.00000000052345 

0.00000002923945 

-0.00000082076817 

0.00001288269872 

-0.00012303475262 

0.00059964121406 

0.00292649434315 

0.00870313013421 

1.72556273019463 

Mach  1.92 
0.21651200000000 
25.00000000000000 
0.00000000000579 
-0.00000000076723 
0.00000004025622 
-0.00000108088414 
0.00001635503263 
-0.0001 5063604%3 
0.00073668436913 
0.00270001716722 
0.00878668592128 
1.68396840086963 

Mach  1.95 
0.20357000000000 
25.00000000000000 
0.00000000000867 
-0.00000000108309 
0.00000005438070 
-0.00000141209353 
0.00002076095863 
-0.00018539275437 
0.00090494144104 
0.00240342019763 
0.00891342884216 
1.64285854681983 


0.21048600000000 

25.00000000000000 

0.00000000000458 

-0.000000(X)063115 

0.00000003406015 

-0.00000093446544 

0.00001441211544 

-0.00013527349131 

0.00065946017562 

0.00281712099547 

0.00876515158660 

1.71164952108481 

Mach  1.93 
0.19837700000000 
25.00000000000000 
0.00000000000680 
-0.00000000087837 
0.00000004526261 
-0.00000119943167 
0.00001795283732 
-0.00016341724179 
0.00079882961895 
0.00258774565854 
0.00882584868898 
1.67027656635207 

Mach  1.96 
0.20659300000000 
25.00000000000000 
0.00000000000944 
-0.00000000116770 
0.00000005815319 
-0.00000149942911 
0.00002189481554 
-0.00019410579766 
0.00094722965117 
0.00233665922268 
0.00893315465024 
1.62924137147161 


0.20524200000000 

25.00000000000000 

0.00000000000287 

-0.00000000044259 

0.00000002556226 

-0.00000073331863 

0.00001170503269 

-0.00011358527639 

0.00055249312556 

0.00300575354258 

0.00867075440334 

1.73951638482135 

Mach  1.91 
0.21347500000000 
25.00000000000000 
0.00000000000518 
-0.00000000069943 
0.00000003717712 
-0.00000100838461 
0.00001539754093 
-0.00014310108807 
0.00069884796130 
0.00275665586437 
0.00877833286899 
1.69777733870189 

Mach  1.94 
0.20054500000000 
25.00000000000000 
0.00000000000792 
-0.00000000100035 
0.00000005067587 
-0.00000132587529 
0.00001963425136 
-0.00017666929551 
0.00086240817420 
0.00247040236890 
0.00889486424476 
1.65653654636131 

Mach  1.97 
0.20%1500000000 
25.00000000000000 
0.00000000001046 
-0.00000000127875 
0.00000006304389 
-0.00000161186891 
0.00002335210160 
-0.00020524183134 
0.00099974917057 
0.00224746995878 


Mach  1.98 
0.19130600000000 
25.00000000000000 
0.00000000001176 
-0.00000000141855 
0.00000006921066 
-0.00000175495874 
0.00002523957031 
-0.00021992049914 
0.00106839921452 
0.00212502462661 


Mach  1.99 
0.19426500000000 
25.00000000000000 
0.00000000001266 
-0.00000000151686 
0.00000007354887 
-0.00000185448151 
0.00002652073182 
-0.00022964618008 
0.00111462376334 
0.00204942217505 
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0.00897343118596  0.00901390855776  0.00904291552541 
1.61565643102735  1.60223414425180  1.58875580453989 

Mach  2.0 

0.1%76900000000 

25.00000000000000 

0.00000000001355 

-0.00000000161314 

0.00000007776764 

-0.00000195028106 

0.00002773529688 

-0.00023868636964 

0.00115696378651 

0.00198487738110 

0.00905788%3067 

1.57536198056976 

The  following  list  contains  foe  range  of  V  values  for  foe  throat  transition  polyn<Mnials  and 
the  coefficients  for  these  sevaith  order  polynomials  (Equation  18).  Tire  rows  rqjresent  the 
foUowing  informatioD;  row  1,  starting  x  value,  row  2,  ending  x  value,  rows  3  dirough  9,  the 
coefficients  for  the  polynomials  arranged  in  decreasing  order  of  x. 

Mach  1.4  Mach  1.41  Mach  1.42 

-0.03485000000000  -0.03465000000000  -0.03440000000000 
0.30487800000000  0.30698300000000  0.30917200000000 
3.79440994520268  3.56823400152118  3.32703763798460 
-1.46795727781507  -1.35973801033422  -1.23196836404500 
-0.71606249126068  -0.70897558737324  -0.70915413735749 
0.25274378162748  0.24813029464503  0.24403461583068 
0.04165733646450  0.04075827559078  0.03997160255191 
0.00751014912255  0.00745071433510  0.00739610623122 
0.00041924755858  0.00041547823184  0.00041125657902 
2.39397441331458  2.38228558625431  2.37044417031013 

Mach  1.43  Mach  1.44  Mach  1.45 

-0.03415000000000  -0.03390000000000  -0.03365000000000 
0.31140200000000  0.31366300000000  0.28841700000000 
3.11496001150867  2.72130721544026  3.69776201225538 
-1.13029748497588  -0.84301578204264  -0.60208509400623 
-0.70142974277375  -0.75010624182661  -1.19472906808352 
0.23948872089842  0.23668386228604  0.290%742681204 
0.03901246133980  0.03909865695956  0.05123430904578 
0.00733094444658  0.00733452542245  0.008018153935% 

0.00040678427261  0.00040406414451  0.00041739269536 
2.35837758658468  2.34616245253660  2.33382413199897 

Mach  1.46  Mach  1.47  Mach  1.48 

-0.03335000000000  -0.03310000000000  -0.03280000000000 
0.28974400000000  0.29206300000000  0.29446500000000 
3.34858689894953  2.95927524855381  2.75862420544780 
-0.37361238795502  -0.16010447584142  -0.10888988553452 
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-1.22776365279964 

0.28924060805970 

0.05098468049795 

0.00798839967271 

0.(X)041309132578 

2.32135575959659 

Mach  1.49 
-0.03250000000000 
0.2%88800000000 
2.28757893704022 
0.20080119743413 
-1.25312598934528 
0.27678583453587 
0.04843350505455 
0.00779950121072 
0.00039851521772 
2.28317593888181 

Mach  1.52 
-0.03145000000000 
0.27664300000000 
1.32772244275014 
2.06740734930375 
-2.06442636272360 
0.33371890360207 
0.06280856264212 
0.00853698479216 
0.00040259942211 
2.24389600318023 

Mach  1.55 
-0.03035000000000 
0.28338000000000 
0.18248534531018 
2.68223963489117 
-2.10987945228988 
0.32831747443752 
0.05995326074150 
0.00828350109548 
0.00038321372169 
2.20383350062508 

Mach  1.58 


0.26534000000000 

-2.43402889588291 

5.87586039711888 

-3.22179177624369 

0.39531942505549 

0.07542127119886 

0.00898068359495 


-1.23893598845069 

0.28462237877366 

0.05018412643342 

0.00793148647722 

0.00040877512651 

2.30877015525996 

Mach  1.5 

-0.03215000000000 

0.29939400000000 

2.12744271877720 

0.23200126175912 

-1.22337529219125 

0.27268892737587 

0.04695418574869 

0.00769202183661 

0.00039181164708 

2.27018084029812 

Mach  1.53 
-0.03110000000000 
0.27918200000000 
0.69145529875843 
2.46299910196168 
-2.11919126235970 
0.33151579331615 
0.06236337294409 
0.00848619122344 
0.00039711198294 
2.23061899235766 

Mach  1.56 
-0.02995000000000 
0.28603200000000 
0.03646676021508 
2.68626395451038 
-2.07411197812351 
0.32569661185817 
0.05823227181043 
0.00815280601075 
0.00037538176317 
2.19032892807979 

Mach  1.59 
-0.02865000000000 
0.26805700000000 
-2.86686410472777 
6.08760565494899 
-3.23724494785300 
0.39618368007874 
0.07407214694838 
0.00885450631015 


-1.20971531100032 

0.27985537332901 

0.04870969153017 

0.00782692476461 

0.00040268837068 

2.29598680126603 

Mach  1.51 
-0.03180000000000 
0.27412600000000 
1.7%77590132942 
1.82927096039062 
-2.05213869219468 
0.33673696847198 
0.06386384069278 
0.00862588949119 
0.00040901250442 
2.25708534639065 

Mach  1.54 
-0.03075000000000 
0.28174400000000 
0.52652317543870 
2.46751714330287 
-2.07935042117815 
0.32821291426273 
0.06061684928972 
0.00835560570991 
0.00038979076872 
2.21726264516941 

Mach  1.57 
-0.02950000000000 
0.26268500000000 
-2.69436349916207 
6.25160625601419 
-3.35433323101306 
0.39821796264169 
0.07862876156263 
0.00920908867404 
0.00039250121449 
2.17667402536131 

Mach  1.6 

-0.02820000000000 

0.26982300000000 

-2.48501888843186 

5.67754727687714 

-3.11503891537114 

0.39553487946122 

0.07115650768842 

0.00864236765174 
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0.00038233699260 

2.16296211062438 

Mach  1.61 
-0.02770000000000 
0.27262700000000 
-2.79334185601022 
5.80827692380134 
-3.11688350389649 
0.39709344374335 
0.06960668897304 
0.00850464887326 
0.00035444342251 
2.12156624316047 

Mach  1.64 
-0.02620000000000 
0.25474600000000 
-8.03794677295924 
11.15551809851162 
-4.76978259081621 
0.49432525742080 
0.08785879021740 
0.00919414755046 
0.00034848731133 
2.07961902477300 

Mach  1.67 
-0.02460000000000 
0.26332700000000 
-5.80632242051302 
8.93948299385402 
-4.15228340803712 
0.49022556785905 
0.07526887445971 
0.00836%5806119 
0.00031242530590 
2.03747277127029 

Mach  1.7 


rrrrmTr 


0.24646200000000 

-12.3514%74613173 

15.35616062320531 

-6.10854299753303 

0.62453706236953 

0.09192541557412 

0.00881494653222 

0.00029757078079 

1.99491130572210 


0.00037385208538 

2.14926547441401 

Mach  1.62 
-0.02725000000000 
0.27539700000000 
-3.00227789526810 
5.86239680953501 
-3.09866887450936 
0.39716143299272 
0.06789724862398 
0.00836780939428 
0.00034601787089 
2.10764769711319 

Mach  1.65 
-0.02570000000000 
0.25756100000000 
-6.89131070262041 
10.09515104712624 
-4.48834801958721 
0.49130756830867 
0.08285061711572 
0.00887435704679 
0.00033581805980 
2.06559759632455 

Mach  1.68 
-0.02405000000000 
0.24154300000000 
-15.15686416575276 
17.71049006212431 
-6.65850571690492 
0.61746152288731 
0.10218416773992 
0.00947522460473 
0.00032481807133 
2.02329752844891 

Mach  1.71 
-0.02225000000000 
0.57120200000000 
-1.0326%25760690 
2.08914026043627 
-1.42424253454036 
0.29525929243329 
0.03296473637646 
0.00642184233498 
0.00025163700768 
1.98077332729275 


0.00036361684659 

2.13544560549913 

Mach  1.63 
-0.02675000000000 
0.25283500000000 
-8.33671978335983 
11.46812770545675 
-4.84815571042553 
0.48814249599407 
0.09062919736569 
0.00942189407570 
0.00036026932893 
2.09369262708121 

Mach  1.66 
■0.02515000000000 
0.26043800000000 
-6.44819383248542 
9.59653211139184 
4.33986542090733 
0.49159544520217 
0.07921530885189 
0.00862494472161 
0.00032407177001 
2.05154909912320 

Mach  1.69 
-0.02345000000000 
0.24353600000000 
-13.91242315191867 
16.70000360639828 
-6.43679868622093 
0.62464578587591 
0.09760880611917 
0.00916111164076 
0.00031130884995 
2.00910813899456 

Mach  1.72 
-0.02165000000000 
0.25233500000000 
-8.67281476082239 
12.17890300763105 
-5.31241858857280 
0.61410749648012 
0.07978735862669 
0.008138172%121 
0.00027130550201 
1.96656331578481 
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Mach  1.73  Mach  1.74  Mach  1.75 

-0.02100000000000  -0.02035000000000  41.01970000000000 
0.23044900000000  0.23340400000000  0.23636700000000 
-23.69477308502587  -20.32259621026120  -16.63267807696737 
25.38559582952659  22.77556013874253  19.88848222%1645 
-8.90708020572145  -8.32694102385256  -7.66985819282011 
0.80762379378055  0.80562193112298  0.79798244287061 
0.11115049552176  0.10318878463274  0.09494241203410 
0.00922769440670  0.00879925346585  0.00838376256371 
0.00027972625414  0.00026471565916  0.00025032194222 
1.95227163952977  1.93806084955796  1.92384812920442 

Mach  1.76  Mach  1.77  Mach  1.78 

-0.01905000000000  -0.01835000000000  -0.01765000000000 
0.73115200000000  0.24145000000000  0.22121500000000 
-0.29485341637918  -11.22956727742464  -29.44925959225816 
0.76634609210702  15.50032002102958  31.29013771558354 
-0.67773008290222  -6.63102860166389  -10.91932063428794 
0.19321529494126  0.78377708826185  1.04727637991373 
0.01645649015953  0.08098411881127  0.11066144405744 
0.00573455353118  0.00770126701003  0.00851818737712 
0.00020637111455  0.00022415605838  0.00022593089008 
1.90964798618532  1.89545519960127  1.88121169764047 

Mach  1.79  Mach  1.8  Mach  1.81 

-0.01695000000000  -0.01620000000000  -0.01550000000000 
0.22419500000000  0.22723000000000  0.23021900000000 
-22.36240279926369  -16.92906356331887  -11.125622%706782 
26.06115457136489  21.86538616300034  17.29042833327258 
-9.77673714%2000  -8.81317599840195  -7.72132852112588 
1.02451579429596  1.00171532700480  0.96441215171438 
0.09932049306662  0.08910715445470  0.07882093572901 
0.00803849952657  0.00761874366907  0.00723541957104 
0.00021111418919  0.0001%91028229  0.00018417549071 
1.86704707090553  1.85287379374797  1.83872138151665 

Mach  1.82  Mach  1.83  Mach  1.84 

-0.01475000000000  -0.01400000000000  -0.01320000000000 
0.23237400000000  0.21283800000000  0.21587900000000 
-8.64905760559781  -24.81136905451505  -17.64330327237555 
15.25885284473409  30.71208065876448  25.30747935316158 
-7.238670619%354  -11.80354401052184  -10.58483486572128 
0.95743091865080  1.30384859605613  1.26962488460342 
0.07239737975352  0.09703597366736  0.08582875221044 
0.00697368261137  0.00746347583565  0.00707953868209 
0.00017253823394  0.00016859885170  0.00015538406246 
1.82458%9633024  1.81045488035417  1.7%36785853818 

Mach  1.85  Mach  1.86  Mach  1.87 

-0.01245000000000  -0.01165000000000  -0.01085000000000 
0.21887200000000  0.22105600000000  0.22410000000000 
-7.55125213952866  -1.75072%7043862  4.69914483025170 
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17.64348175536304 

-8.78665795024184 

1.191821774%300 

0.07282624157453 

0.00669883671453 

0.00014322349971 

1.78232662085575 


13.12124767869101 

-7.71429534659802 

1.15118848867291 

0.06369815118198 

0.00642634589061 

0.00013180636303 

1.768295%880246 


7.81934421982999 

-6.37022362316132 

1.08306222995786 

0.05386822589558 

0.00616858707632 

0.00012081577971 

1.75430238673915 


Mach  1.88  Mach  1.89  Mach  1.9 

-0.01005000000000  -0.00920000000000  -0.00835000000000 
0.20524200000000  0.20828300000000  0.21048600000000 
-8.22770715507505  0.12533309902303  18.11627388143557 
23.24819689640894  16.70775826936938  3.55222791919128 
-11.53082438980671  -9.97434704887919  -6.91353478%2862 
1.55314251936088  1.48529586945287  1.31651262002925 
0.07372432790155  0.06252801319642  0.04799675603840 
0.00642409697357  0.00615517413648  0.00587424033081 
0.00011369406953  0.00010236830341  0.00009129511993 
1.74032777767046  1.72640254151559  1.71252980359230 

Mach  1.91  Mach  1.92  Mach  1.93 

-0.00755000000000  -0.00670000000000  -0.00580000000000 
0.21347500000000  0.21651200000000  0.19837700000000 
24.76393281277613  29.08623711885884  27.72896117016362 
-2.27077634411554  -6.53450662877932  4.64707990512762 
-5.34324318914758  -4.09382585316890  -9.24595283992646 
1.21615213644679  1.12906670841646  1.72445539420583 
0.03891788167940  0.03122201470038  0.04230140608731 
0.005705833419%  0.00557451061268  0.00563302325941 
0.00008168285335  0.00007189279928  0.00006247235118 
1.69868514321435  1.68490184544619  1.67112238658627 


Mach  1.95  Mach  1% 

-0.00405000000000  -0.00315000000000 
0.20357000000000  0.20659300000000 
56.76848041464736  63.16364630849947 
-18.03597524249974-24.42474257892694 
-3.58597815450975  -1.68400904959568 
1.34618897900176  1.19240218932198 
0.02153862099279  0.01434254405664 
0.00539005886716  0.00532721540278 
0.000042%202937  0.00003328437677 
1.64376909214756  1.63017999130190 


Mach  1.94 
-0.00495000000000 
0.20054500000000 
51.75715183544227 
-12.70049286104780 
-5.18531871497983 
1.46522290843937 
0.02941671720811 
0.00547841486794 
0.00005280014383 
1.65742121307232 

Mach  1.97 
-0.00225000000000 
0.20%  1500000000 
72.6636812418950 
-33.1435129101020 
0.84109688114000 
0.97629481378700 
0.00790312377400 


Mach  1.98 
-0.00135000000000 
0.19130600000000 
100.684 15%39541 
-35.1465143191700 
-2.89579661068300 
1.63891053752500 
0.00806781828600 


Mach  1.99 
-0.00045000000000 
0.19426500000000 
112.183780303250 
-045.903417821063 
0.17200711643400 
1.38076668627900 
0.00165161456800 
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0.00528695766100  0.00527784158500  0.00526371012800 
0.00002371564400  0.00001422223800  0.00000473683900 
1.61662914089900  1.60311667331100  1.58966781607400 

Mach  2.0 
0 

0.19676900000000 

124.934972990805 

-57.3904439893380 

3.47405251744300 

1.07515569392200 

-0.00083333333300 

0.00526315789500 

0 

1.57629985185200 

The  following  list  cOTtains  the  range  of  V  values  fisr  the  subsonic  shapes  and  the 
coefficiaits  described  in  equaticms  26  and  27.  The  rows  represent  the  following  informaticm;  row 
1,  starting  x  value,  row  2,  ending  x  value,  rows  3  the  coefiBciait  aj ,  and  row  4,  the  coeflRcient  a2- 

Mach  1.4  Mach  1.41  Mach  1.42 

-19.98179413977541  -19.98179395739902  -19.98179372942853 
-0.03485000000000  -0.03465000000000  -0.03440000000000 
0.39446440268570  0.39271089471799  0.39095225010117 
0.59674737554859  0.59410336655332  0.59145367537456 

Mach  1.43  Mach  1.44  Mach  1.45 

-19.98179350145804  -19.98179327348754  -19.98179304551705 
-0.03415000000000  -0.03390000000000  -0.03365000000000 
0.38917619816803  0.38739460967027  0.38561150909261 
0.58877755152711  0.58609295293606  0.583405%793348 

Mach  1.46  Mach  1.47  Mach  1.48 

-19.98179277195246  -19.98179254398197  -19.98179227041738 
-0.03335000000000  -0.03310000000000  -0.03280000000000 
0.38382814615554  0.38204275014569  0.38024807345137 
0.58072061422451  0.57802994872182  0.57532724957156 

Mach  1.49  Mach  1.5  Mach  1.51 

-19.9817919%85279  -19.9817916776941 1  -19.98179135853542 
-0.03250000000000  -0.03215000000000  -0.03180000000000 
0.37846645113368  0.37667801944528  0.37489278488193 
0.57264418319022  0.569952782510%  0.56726608078394 

Mach  1.52  Mach  1.53  Mach  1.54 

-19.98179103937673  -19.98179072021804  -19.98179040105935 
-0.03145000000000  -0.03110000000000  -0.03075000000000 
0.37311183727375  0.37133609731082  0.36956676779441 
0.56458572749142  0.56191311633866  0.55925006808103 
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Mach  1.55  Mach  1.56  Mach  1.57 

-19.98179003630657  -19.98178967155378  -19.98178926120690 
-0.03035000000000  -0.02995000000000  -0.02950000000000 
0.36780660822097  0.36605344869396  0.36429946374814 
0.55660279766478  0.553965%468179  0.55132974589633 

Mach  1.58  Mach  1.59  Mach  1.6 

-19.9817888%45411  -19.98178848610722  -19.98178807576034 
-0.02910000000000  -0.02865000000000  -0.02820000000000 
0.36255328785826  0.36082765006084  0.35910306718512 
0.54870316159338  0.54610950615%5  0.54351727526094 

Mach  1.61  Mach  1.62  Mach  1.63 

-19.98178761981936  -19.98178720947247  -19.98178675353149 
-0.02770000000000  -0.02725000000000  -0.02675000000000 
0.35738944738869  0.35568567208321  0.35399552131607 
0.54094344648691  0.53838235782865  0.53584368435772 

Mach  1.64  Mach  1.65  Mach  1.66 

-19.98178625199641  -19.98178579605543  -19.98178529452034 
-0.02620000000000  -0.02570000000000  -0.02515000000000 
0.35230901165053  0.35064315694926  0.34899168973826 
0.53331228768497  0.53081001022739  0.52833126297586 

Mach  1.67  Mach  1.68  Mach  1.69 

-19.98178479298526  -19.98178429145018  -19.98178374432100 
-0.02460000000000  -0.02405000000000  -0.02345000000000 
0.34735262190693  0.34571754995146  0.34409809206949 
0.52587108630188  0.52341675955877  0.52098778102668 

Mach  1.7  Mach  1.71  Mach  1.72 

-19.98178319719183  -19.98178265006265  -19.98178210293347 
-0.02285000000000  -0.02225000000000  -0.02165000000000 
0.34249307915191  0.34090982600566  0.33933323032402 
0.51858045872025  0.51620587160642  0.51384115509972 

Mach  1.73  Mach  1.74  Mach  1.75 

-19.98178151021019  -19.98178091748691  -19.98178032476363 
-0.02100000000000  -0.02035000000000  -0.01970000000000 
0.33776398547959  0.33621828521080  0.33468665551867 
0.51148923230118  0.50917273956986  0.50687733378153 

MjKih  1.76  Mach  1.77  Mach  1.78 

-19.98177973204036  -19.98177909372298  -19.98177845540560 
-0.01905000000000  -0.01835000000000  -0.01765000000000 
0.33317048526161  0.33167059865851  0.33017900311314 
0.50460512148013  0.50235919239911  0.50012558913756 

Mach  1.79  Mach  1.8  Mach  1.81 

-19.98177781708823  -19.98177713317675  -19.98177649485938 
-0.01695000000000  -0.01620000000000  -0.01550000000000 
0.32870925344589  0.32725347226518  0.32581126341259 
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0.49792484630503  0.49574684932609  0.49358736624280 


Mach  1.82  Mach  1.83  Mach  1.84 

-19.98177581094790  -19.98177512703643  -19.98177439753086 
-0.01475000000000  -0.01400000000000  -0.01320000000000 
0.32438565056018  0.32297235063256  0.32157793231092 
0.49145460039128  0.48934025302865  0.48725606215657 

Mach  1.85  Mach  1.86  Mach  1.87 

-19.98177371361938  -19.98177298411381  -19.98177225460824 
-0.01245000000000  -0.01165000000000  -0.01085000000000 
0.32019867664276  0.31883404595827  0.31748483937802 
0.48519282542590  0.48315328852628  0.48113688430876 

Mach  1.88  Mach  1.89  Mach  1.9 

-19.98177152510267  -19.98177075000300  -19.98176997490332 
-0.01005000000000  -0.00920000000000  -0.00835000000000 
0.31614905620621  0.31483100223377  0.31352912115270 
0.47914058471610  0.47717266404261  0.47522900894367 

Mach  1.91  Mach  1.92  Mach  1.93 

-19.98176924539775  -19.98176847029808  -19.98176764960431 
-0.00755000000000  -0.00670000000000  -0.00580000000000 
0.31223927496370  0.310%751378538  0.30970819074754 
0.47330162113832  0.47140314328154  0.46952499855181 

Mach  1.94  Mach  1.95  Mach  1.96 

-19.98176687450464  -19.98176605381087  -19.98176523311710 
-0.00495000000000  -0.00405000000000  -0.00315000000000 
0.30846493221763  0.30723785159150  0.30602643669911 
0.46766924895664  0.46583949685648  0.46403325418061 

Mach  1.97  Mach  1.98  Mach  1.99 

-19.98176441242334  -19.98176359172957  -19.98176277103580 
-0.00225000000000  -0.00135000000000  -0.00045000000000 
0.30482819944503  0.30364295349599  0.30247274191576 
0.46224675262606  0.46047971355867  0.45873523941090 

Mach  2.0 

-19.98176236068891 

0 

0.30130528455490 

0.45697968157493 
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APPENDIX  D.  STRUCTURAL  ANALYSIS 


The  structural  analysis  was  carried  out  using  I-DEAS  Master  Series™.  Alioth,  the  ei^t 
processor  Silicon  Graphics  4D/380  computer  located  in  the  NPS  Visualization  Laboratory  was  the 
platform  used  for  the  structural  analysis.  Ahodi  was  the  server  for  I-DEAS  and  if  the  user 
established  a  home  account  <m  diis  machine,  processing  time  was  minimized. 

The  three  structural  questions  addressed  were;  (1)  the  jack  distribution  and  loading 
necessary  to  achieve  the  necessary  curvatures  in  the  steel  plate,  (2)  the  interactioi  betweai  the  jack 
mounting  fixture  and  the  plate  and  (3)  the  effect  of  the  aerodynamic  pressure  loading  on  the  plate. 

Figure  29  shows  the  finite  element  model  of  die  idealized  Mach  1 .4  shape.  Nine  fixtures 
were  attached  to  the  model  corresponding  to  the  jack  mounting  points  and  one  inch  elem^t  l^gths 
were  used.  Figure  30  shows  a  loading  combination  which  produced  a  close  approximation  of  the 
Mach  2  curvatures.  The  loads  were  oriented  perpeudicular  to  the  long  dimension  of  the  plate  (y 
direction)  with  the  positive  sense  defined  upward.  A  load  of  -225  poimds  was  applied  at  the  -3.5 
inch  jack  station  (measured  with  respect  to  the  throat,  positive  in  the  downstream  direction).  A  275 
pound  load  and  a  -140  pound  load  were  ^>plied  at  the  0  indi  or  foroat  station  and  the  3  inch  station 
respectively.  Figure  3 1  shows  the  stress  distribution  in  the  deflected  steel  slu^. 

Figure  32  presents  the  model  used  to  analyze  the  jack  mounting  fixture  and  the  pressure 
loading  effects.  A  six  inch  secticn  of  flat  plate,  representative  of  the  loigth  between  three  jacks, 
was  used.  A  single  jack-mounting  fixture  was  modeled.  An  element  loigth  of .  1  inches  was 
reqpiired  to  avoid  ^cessive  distorticm  of  the  finite-element  mesh  throughout  tiie  jack-mount  fixture 
and  eyelet.  To  avoid  laige  memory  and  processor  demands,  the  mcxlel  was  simplified  by  modeling 
a  .  1  inch  two  dimensional  slice  tiuou^  the  plate.  This  sinq)lificati(»i  kept  processor  time  to  less 
than  five  minutes  and  Hypermatrix  size  to  less  than  50  megabytes.  Figure  33  shows  the  stress 
effects  of  applying  a  250  pound  load  to  the  tc^  of  the  inside  of  the  eyelet  at  an  ofiP-perpoidicnilar 
angle  of  4.5  d^ees.  Figure  34  shows  the  deflecticm  of  this  same  load.  Figure  35  shows  the 
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displacement  of  the  isolated  horizontal  component  of  the  250  pound  load.  Figure  36  highlights  the 
stress  at  the  fixture  joint. 

Figure  37  rqjresents  an  approximation  of  the  pressure  loading  associated  with  Mach  2 
operation  on  the  plate  section  surrounding  the  throat  jack.  In  this  figure,  the  stress  distribution  is 
presorted.  Finally  Figure  38  shows  the  displacemart  of  the  plate  as  a  result  of  the  Mach  2 
pressure  loading  in  the  vicinity  of  the  throat. 
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Figure  35.  Jack  Mount  Deflection,  Horizontal  Component  of  Off  Perpendicular  Load 
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Figure  38.  Plate  Deflection,  Mach  2  Pressure  Load  (Throat) 
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APPENDIX  E.  COORDINATES  OF  MACH  1.7  SHAPE  AND  PRELIMINARY 

DRAWINGS 

Table  6  lists  the  coordinates  describing  the  surfece  of  the  Mach  1.7  shape  exposed  to  the 
air  flow.  The  origin  of  die  reference  system  is  the  most  down-stream  point  in  the  solution  which  is 
at  the  nozzle  exit.  The  positive  sense  for  'x'  is  in  the  down  stream  or  test  section  direction, 
therefore  all  of  the  x  values  are  negative.  The  positive  sense  for  y  is  perpendicular  to  and  directed 
away  fixnn  the  nozzle  centerline. 
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X 

Y 

X 

Y 

X 

Y 

X 

Y 

-44.9818 

2.2003 

-36.4166 

1.4668 

-31.7819 

-0.1976 

*26.8877 

-0.7805 

-44.9749 

2.2003 

-36.0772 

1.3355 

-31.689 

-0.2201 

-26.7605 

-0.7841 

-44.9659 

2.2003 

-35.7409 

1.2008 

-31.5955 

-0.2421 

-26.6324 

-0.7873 

-44.9543 

2.2003 

-35.4082 

1.0649 

-31.5014 

-0.2638 

-26.5034 

-0.7903 

-44.9395 

2.2003 

-35.0796 

0.93 

-31.4065 

-0.2851 

-26.3734 

-0.793 

-44.9211 

2.2003 

-35.01 

0.9015 

-31.311 

-0.3059 

-26.2426 

-0.7953 

-44.8983 

2.2003 

-34.9398 

0.8728 

-31.2149 

-0.3264 

-26.1108 

-0.7974 

-44.8704 

2.2003 

-34.8691 

0.844 

-31.1181 

-0.3464 

-25.9781 

-0.7992 

-44.8367 

2.2003 

-34.7979 

0.8151 

-31.0205 

-0.3659 

-25.8445 

-0.8008 

-44.7963 

2.2003 

-34.7263 

0.7861 

-30.9223 

-0.3851 

-25.71 

-0.802 

-44.7486 

2.2003 

-34.6541 

0.757 

-30.8235 

-0.4038 

-25.5745 

-0.8031 

44.6927 

2.2003 

-34.5814 

0.7278 

-30.7239 

-0.422 

-25.438 

-0.8038 

-44.6278 

2.2003 

-34.5083 

0.6986 

-30.6236 

-0.4398 

-25.3006 

-0.8044 

-44.5531 

2.2003 

-34.4346 

0.6693 

-30.5226 

-0.4571 

-25.1622 

-0.8047 

-44.468 

2.2003 

-34.3603 

0.64 

-30.4209 

-0.474 

-25.0229 

-0.8048 

44.3716 

2.2003 

-34.2856 

0.6108 

-30.3185 

-0.4905 

-25.0229 

-0.8048 

-44.2635 

2.2003 

-34.2103 

0.5815 

-30.2154 

-0.5065 

-25.0174 

-0.8048 

44.143 

2.2003 

-34.1345 

0.5522 

-30.1115 

-0.522 

-25.0119 

-0.8048 

-44.0097 

2.2003 

-34.0582 

0.523 

-30.0069 

-0.5371 

-25.0064 

-0.8048 

43.8633 

2.2003 

-33.9814 

0.4939 

-29.9016 

■0.5517 

-25.0009 

-0.8048 

-43.7034 

2.2003 

-33.904 

0.4648 

-29.7955 

-0.5658 

-24.9954 

-0.8048 

43.53 

2.2003 

-33.826 

0.4358 

-29.6887 

-0.5796 

-24.9899 

-0.8048 

43.3429 

2.2003 

-33.7475 

0.4069 

-29.5812 

-0.5928 

-24.9844 

-0.8048 

43.1423 

2.2003 

-33.6685 

0.3782 

-29.4729 

-0.6056 

-24.9789 

-0.8048 

42.9283 

2.2003 

-33.5889 

0.3495 

-29.3638 

4)618 

-24.9734 

-0.8048 

42.7012 

2.2003 

-33.5087 

0.321 

-29.254 

-0.6299 

-24.9679 

-0.8048 

42.4613 

2.2003 

-33.428 

0.2927 

-29.1433 

-0.6413 

-24.9624 

-0.8048 

42.2091 

2.2003 

-33.3467 

0.2645 

-29.032 

-0.6523 

-24.9569 

-0.8048 

41.9452 

2.2003 

-33.2648 

0.2366 

-28.9198 

-0.6629 

-24.9514 

-0.8047 

41.6702 

2.2002 

-33.1824 

0.2088 

-28.8068 

-0.6731 

-24.9459 

-0.8047 

41.3848 

2.2001 

-33.0994 

0.1813 

-28.6931 

-0.6828 

-24.9404 

-0.8047 

41.0897 

2.1996 

-33.0158 

0.1539 

-28.5785 

-0.6921 

-24.9349 

-0.8047 

40.7857 

2.1984 

-32.9316 

0.1269 

-28.4632 

-0.7009 

-24.9294 

-0.8047 

40.4736 

2.1957 

-32.8468 

0.1001 

-28.347 

-0.7094 

-24.9239 

-0.8047 

40.1544 

2.1902 

-32.7615 

0.0735 

-28.23 

-0.7174 

-24.9184 

-0.8047 

-39.8288 

2.1802 

-32.6755 

0.0472 

-28.1122 

-0.7251 

-24.9129 

-0.8046 

-39.4978 

2.1635 

-32.5889 

0.0213 

-27.9936 

-0.7323 

-24.9074 

-0.8046 

-39.1623 

2.1378 

-32.5017 

-0.0044 

-27.8741 

-0.7391 

-24.9019 

-0.8046 

-38.8232 

2.1008 

-32.4139 

-0.0298 

-27.7538 

-0.7456 

-24.8964 

-0.8046 

-38.4812 

2.0507 

-32.3255 

-0.0548 

-27.6327 

-0.7516 

-24.8909 

-0.8045 

-38.1373 

1.9863 

-32.2365 

-0.0795 

-27.5107 

-0.7573 

-24.8854 

-0.8045 

-37.7923 

1.9074 

-32.1468 

-0.1038 

-27.3878 

-0.7627 

-24.8799 

-0.8045 

-37.447 

1.8144 

-32.0566 

-0.1278 

-27.2641 

-0.7676 

-24.8745 

-0.8044 

-37.1021 

1.7086 

-31.%56 

-0.1515 

-27.1395 

-0.7722 

-24.869 

-0.8044 

-36.7584 

1.592 

-31.8741 

-0.1747 

-27.0141 

-0.7765 

-24.8635 

-0.8043 

Table  6.  Coordinates  of  Mach  1.7  Nozzle  Contour 
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X 

Y 

X 

Y 

X 

Y 

-24.858 

-0.8043 

-22.2682 

-0.7543 

-17.7947 

-0.5766 

-24.8525 

4).8043 

-22.1688 

-0.7515 

-17.6953 

-0.5718 

-24.847 

-0.8042 

-22.0694 

-0.7486 

-17.5959 

-0.567 

-24.8415 

-0.8042 

-21.97 

-0.7456 

-17.4965 

-0.5621 

-24.836 

-0.8041 

-21.8706 

-0.7426 

-17.3971 

-0.5573 

-24.8305 

-0.8041 

-21.7712 

-0.7395 

-17.2977 

-0.5524 

-24.825 

-0.804 

-21.6718 

-0.7364 

-17.1982 

-0.5475 

-24.8195 

-0.804 

-21.5724 

-0.7332 

-17.0988 

-0.5425 

-24.814 

-0,8039 

-21.4729 

-0.7299 

-16.9994 

-0.5376 

-24.8085 

-0.8039 

-21.3735 

-0.7266 

-16.9 

-0.5326 

-24.803 

-0.8038 

-21.2741 

-0.7232 

-16.8006 

-0.5276 

-24.7975 

-0.8038 

-21.1747 

-0.7198 

-16.7012 

-0.5226 

-24.792 

-0.8037 

-21.0753 

-0.7163 

-16.6018 

-0.5176 

-24.7865 

-0.8036 

-20.9759 

-0.7128 

-16.5024 

-0.5126 

-24.781 

-0.8036 

-20.8765 

-0.7092 

-16.4029 

-0.5075 

-24.7755 

-0.8035 

-20.7771 

-0.7055 

-16.3035 

-0.5024 

-24.77 

-0.8035 

-20.6777 

-0.7018 

-16.2041 

-0.4974 

-24.7645 

-0.8034 

-20.5782 

-0.6981 

-16.1047 

-0.4923 

-24.759 

-0.8034 

-20.4788 

-0.6943 

-16.0053 

-0.4872 

-24.7535 

-0.8033 

-20.3794 

-0.6905 

-15.9059 

-0.4821 

-24.7535 

-0.8033 

-20.28 

-0.6866 

-15.8065 

-0.477 

-24.6541 

-0.8022 

-20.1806 

-0.6827 

-15.7071 

-0.4719 

-24.5547 

-0.8011 

-20.0812 

-0.6787 

-15.6077 

-0.4668 

-24.4553 

-0.7998 

-19.9818 

-0.6747 

-15.5082 

-0.4616 

-24.3559 

-0.7985 

-19.8824 

-0.6706 

-15.4088 

-0.4565 

-24.2565 

-0.7971 

-19.7829 

-0.6665 

-15.3094 

-0.4513 

-24.1571 

-0.7957 

-19.6835 

-0.6623 

-15.21 

-0.4462 

-24.0577 

-0.7941 

-19.5841 

■0.6581 

-15.1106 

-0.4411 

-23.9582 

-0.7925 

-19.4847 

■0.6539 

-15.0112 

-0.4359 

-23.8588 

-0.7908 

-19.3853 

-0.64% 

-14.9118 

-0.4308 

-23.7594 

-0.7891 

-19.2859 

-0.6453 

-14.8124 

-0.4256 

-23.66 

-0.7872 

-19.1865 

-0.641 

-14.7129 

-0.4205 

-23.5606 

-0.7853 

-19.0871 

-0.6366 

-14.6135 

-0.4153 

-23.4612 

-0.7834 

-18.9877 

-0.6322 

-14.5141 

-0.4102 

-23.3618 

-0.7813 

-18.8882 

-0.6277 

-14.4147 

-0.405 

-23.2624 

-0.7792 

-18.7888 

-0.6232 

-14.3153 

-0.3999 

-23.1629 

-0.777 

-18.6894 

-0.6187 

-14.2159 

-0.3948 

-23.0635 

-0.7748 

-18.59 

-0.6141 

-14.1165 

-0.3897 

-22.9641 

-0.7724 

-18.4906 

-0.6096 

-14.0171 

-0.3845 

-22.8647 

-0.77 

-18.3912 

-0.6049 

-13.9177 

-0.3794 

-22.7653 

-0.7676 

-18.2918 

-0.6003 

-13.8182 

■0.3743 

-22.6659 

-0.7651 

-18.1924 

-0.5956 

-13.7188 

-0.3692 

-22.5665 

-0.7625 

-18.0929 

-0.5909 

-13.6194 

-0.3641 

-22.4671 

-0.7598 

-17.9935 

-0.5862 

-13.52 

-0.3591 

-22.3677 

-0.7571 

-17.8941 

-0.5814 

-13.4206 

-0.354 

Table  6.  (cont)  Coordinates  of  Mach  1.7  Nozzle  Contour 
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X 

Y 

X 

Y 

X 

Y 

-13.3212 

-0.349 

-8.8477 

-0.1478 

4.3741 

■0.036 

-13.2218 

-0.3439 

-8.7482 

-0.1442 

4.2747 

-0.0346 

-13.1224 

-0.3389 

-8.6488 

-0.1406 

4.1753 

-0.0333 

-13.0229 

-0.3339 

-8.5494 

-0.1371 

4.0759 

-0.032 

-12.9235 

-0.3289 

-8.45 

-0.1336 

-3.9765 

-0.0307 

-12.8241 

-0.3239 

-8.3506 

-0.1302 

-3.8771 

-0.0295 

-12.7247 

-0.319 

-8.2512 

-0.1269 

-3.7776 

-0.0283 

-12.6253 

-0.314 

-8.1518 

-0.1236 

-3.6782 

-0,0271 

-12.5259 

-0.3091 

-8.0524 

-0.1203 

-3.5788 

-0.026 

-12.4265 

-0.3042 

-7.9529 

-0.1171 

-3.4794 

-0.0249 

-12.3271 

-0.2993 

-7.8535 

-0.1139 

-3,38 

-0.0238 

-12.2277 

-0.2944 

-7.7541 

-0.1108 

-3.2806 

-0.0228 

-12.1282 

-0.2896 

-7.6547 

-0.1078 

-3.1812 

-0.0218 

-12.0288 

-0.2848 

-7.5553 

-0.1048 

-3.0818 

-0.0208 

-11.9294 

-0.28 

-7.4559 

-0.1018 

-2.9824 

-0.0199 

-11.83 

-0.2752 

-7.3565 

-0.0989 

-2.8829 

-0.019 

-11.7306 

-0.2705 

-7.2571 

-0.0961 

-2.7835 

-0.0181 

-11.6312 

-0.2658 

-7.1576 

-0.0933 

-2.6841 

-0.0172 

-11.5318 

-0.2611 

-7.0582 

-0.0906 

-2.5847 

-0.0163 

-11.4324 

-0.2564 

-6.9588 

-0.0879 

-2.4853 

-0.0155 

-11.3329 

-0.2518 

-6.8594 

-0.0852 

-2.3859 

-0.0147 

-11.2335 

-0.2472 

-6.76 

-0.0827 

-2.2865 

-0.0139 

-11.1341 

-0.2426 

-6.6606 

-0.0801 

-2.1871 

-0.0131 

-11.0347 

-0.2381 

-6.5612 

-0.0777 

-2.0876 

-0.0123 

-10.9353 

-0.2336 

-6.4618 

-0.0752 

-1.9882 

-0.0116 

-10.8359 

-0.2291 

-6.3624 

-0.0729 

-1.8888 

-0.0108 

-10.7365 

-0.2247 

-6.2629 

-0.0706 

-1.7894 

-0.0101 

-10.6371 

-0.2203 

-6.1635 

-0.0683 

-1.69 

-0.0094 

-10.5377 

-0.2159 

-6.0641 

-0.0661 

-1.5906 

-0.0087 

-10.4382 

-0.2116 

-5.9647 

-0.0639 

-1.4912 

-0.0081 

-10.3388 

-0.2073 

-5.8653 

-0.0618 

-1.3918 

-0.0074 

-10.2394 

-0.203 

-5.7659 

-0.0598 

-1.2924 

-0,0068 

-10.14 

-0.1988 

-5.6665 

-0.0578 

-1.1929 

-0.0061 

-10.0406 

-0.1946 

-5.5671 

-0.0558 

-1.0935 

-0.0055 

-9.9412 

■0.1905 

-5.4676 

-0.0539 

-0.9941 

-0.0049 

-9.8418 

-0.1864 

-5.3682 

-0.052 

-0.8947 

-0,0043 

-9.7424 

-0.1823 

-5.2688 

-0.0502 

-0.7953 

-0.0038 

-9.6429 

-0.1783 

-5.1694 

-0.0485 

-0.6959 

-0.0032 

-9.5435 

-0.1743 

-5.07 

-0.0468 

-0.5965 

-0.0027 

-9.4441 

-0.1704 

-4.9706 

-0.0451 

-0.4971 

-0.0022 

-9.3447 

-0.1665 

-4.8712 

-0.0435 

-0.3976 

-0.0017 

-9.2453 

-0.1627 

^.7718 

-0.0419 

-0.2982 

-0.0012 

-9.1459 

-0.1589 

-4.6724 

-0.0403 

-0.1988 

-0.0008 

-9.0465 

-0.1551 

-4.5729 

-0.0388 

■0.0994 

-0.0004 

-8.9471 

-0.1514 

-4.4735 

-0.0374 

0 

0 

Table  6.  (cont)  Coordinates  of  Mach  1.7  Nozzle  Contour 
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